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RMFOR. 
gs .. ABSTRACT 
Bey a Ae 
f 
sg THE RMO1 FORMATTER PROGRAM PROVIDES THE FACILITIES TO FORMAT OR 
6 TO VERIFY THE HEADER AND DATA FIELDS OF EACH DATA BLOCK ON THE DISC PACK 
Sc EACH HEADER FIELD SPECIFIES THE ADDRESS OF ITS ASSOCIATED DATA 
3 BLOCK ON THE DISK PACK. 
c 
93 
34 IN THE FORMAT OPERATION, THE PROGRAM WRITES THE HEADER OF EACH 
35 DATA BLOCK WITH A YLIND RN NBER TRACK NUMBER AND SECTOR NUMBER; 
38 WRITES THE DATA FIELD WITH SELECTED DATA PATTERN. 
3 
190 IN THE VERIFICATION OPERATION, THE PROGRAM ASSUMES THAT THE DISK PACK 
1g HAs BEEN FORMATTED. THEN, T HE BR GRAM CHECKS THE HEADER AND caTa OF EACH 
i DATA BLOCK. ISES THE PROGRAM WRITES THE CORRECT 
103 ADDRESS INFORMATION ON THE AOERBER. 
105 
106 2. REQUIREMENTS 
PP Rt eee Se are hig ele ria) Foe a | pene 
198 
109 2.1 EQUIPMENT 
ill PDP-11 PROCESSOR 
1i2 8K MEMORY 
113 TELETYPE 
114 PROGRAM LOAD DEVICE 
1i5 KL I-L OR KWl1-P CLOCK 
1lé RH11 OR RH70 WITH 1 - 8 RMOL DISK DRIVES 
117 DISK PACK(S) 
115 2.2 PRELIMINARY PROGRAMS 
121 THERE ARE NO PREQUISITE PROGRAMS PROVIDING | THE RMOl SUBSYSTEM IS 
122 KNOWN TO BE OPERATIONAL. IF THE STATE OF THE RMO1 SUBSYSTEM IS UNKNOWN, 
i23 THE FOLLOWING PROGRAMS SHOULD BE RUN PRIO TO USING THE FORMATTER PROGRAM 
124 RMO1 § DISKLESS DIAGNOSTIC 
185 RMO1 § FUNCTIONAL TEST 
i 
. LOADING PROCEDURES 


* PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
OADER OR_IT MAY BE LOADED FROM ‘XXDP* MEDIA USING THE APPROPRIATE 
ORDER. THE PROGRAM MAY NOT SE INCLUDED IN AN *XXDF* CHAIN. 


4. STARTING PROCEDURES 


erent Set eet ed eet en et ee 
Cd Cad Cadhad tad ariade nd ee UD 


Ow NOU £ or OWwon 
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1a ra STARTING ADDRESSES 

143 THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS OF THE 
1a RH!1 OR RH70 WILL NOT BE CHANGED FROM ITS DEFAULT VALUE OF 176700. 
14 ; 

147 a E PROGRAM IS STARTED FROM LOCATION 204(8) IF THE ADDRESS OF 

148 _ THE RH11 OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE. 

149 NOTE THAT STARTING ADDRESS 204 IS VALID ONLY ONCE AFTER THE 

150 > PROGRAM IS LOADED. 

161 = (SEE SECTION 4.3) 

153 4.2" OPERATION ACTION 

155 1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 

157 2. LOAD THE STARTING ADMPESSS - 20018) OR 204(8). 

153 3. SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 

161 : IF THIS IS THE PROGRAM’S FIRST START, THE STATUS OF THE DRIVES 
162 ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEOUT 
rt MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<Qe>. 

165 4. THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 

167 = "PROGRAM MODE (C OR F):" 

169 ENTER THE APPROPRIATE CODE: 'C’ FOR ‘CHECK’ OPERATION OR °F* 
179 FOR 'FORMAT & VERIFY’. IF A CARRIAGE RETURN’ IS ENTERED IN 
171 RESPONSE TO THE REQUEST, THE PROGRAM WILL ASSUME ‘FORMAT 8 

17 VERIFY” . 

7 S. THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 

sv 

176 ‘OPERATE IN 32 SECTOR (18 BIT) MODE (Y OR ND° 

178 ENTER THE APPROPRIATE CHARACTER: *Y’ FOR 16 BIT MODE OR *N* FOR 
1793 18 BIT MODE. IF A ‘CARRIAGE RETURN’ IS ENTERED IN RESPONSE TO 
180 : ' THIS REQUEST, THE PROGRAM WILL ASSUME 16 BIT MODE. 

182 - | &. THE PROGRAM WILL THEN ASK FOR A DRIVE: 

ies "DRIVE: ° 

186 ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. 9 ‘PERIOD’ OR 
187 "CARRIAGE RETURN’ ENTRY WILL SELECT DRIVE O. IF THE ORIVE SELECTED 
186 IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND 
189 RETURN TO THE DRIVE ADDRESS REQUEST. 

191 ; 7. AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILI. ASK 
132 as FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 

138 os "ENTER ADDRESS LIMITS: ° 

4 

196 THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER 


-Od0 ONO 00000 0.0wWw 


Morurururulru fruUrururufru ++ + 
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AND TRACK AND FOR ENDING CYLINDER AND TRACK a BE TYPED OUT. 


IF A ‘CARRIAGE RETURN’ IS TYPED AS A RESPONSE PRESENT VALUE 
WILL D: IF A ’PERIOD’ IS TYPED, THE Basaran WILL BYPAS 
THE REMAINING ENTRIES AND WILL USE THEIR PRESEN 

TE LINDER AND TRACK VALU DE NUMBERS 


SS_THAN THE ENDING T Wo 
ADDRESSES ARE ON THE SAME CYLINDER. ON i. OTHER HAND 
THE ENDING EYE ANDER | Pie MAY” of pe aS ae THAN THE STARTING 
ca ecnte ae S a. HE PROGRAM WILL FORMAT 
OR VERIF E DISK PACK FROM THE STARTING CYLINDER TO 
CYLINDER eee AND THEN FROM CYLINDER O TO THE ENDING CYLINDER. 


THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN: 


"SELECT DATA PATTERN 
(0) ZERO’S AND ONE’S 
AB AND 


(1) CD 
(2) WORST CASE:° 
ENTER THE CODE FOR THE REQUIRED PATTERN. ‘CARRIAGE RETURN’ OR 
patitm. ENTRIES WILL CAUSE THE PROGRAM TO USE THE “WORST CASE” 
THE "WORST CASE’ PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED 
THROUGH THE DATA AREA OF THE SECTOR: 
165555 


133333 ; 
ALTERNATE CYLINDERS ARE RECORDED WITH COMPLEMENT CF THE 
SELECTED DATA PATTERN. 


THE PROGRAM WILL THEN TYPE: 
"STARTING FORMAT ON DRIVE N’ 
OR 
’STARTING CHECK ON DRIVE N’ 
THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT 
OR CHECK OPERATION BY TYPING A “CONTROL 0°. THE PROGRAM WILL 
TYPE THE FOLLOWING MESSAGE: 
"PRESENT ADDRESS IS: CXXX TXX’ 
IF @ ‘CONTROL C’ IS TYPED WHILE THE PROGRAM IS TYPING THE CURRENT 
ADDRESS. THE PROGRAM WILL ABORT THE FORMAT (OR CHECK) OPERATIC 
AND RETURN TO THE ‘DRIVE’ REQUEST. 
IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FORMAT 
OR CHECK OPERATION HAS COMPLETED, THE PROGRAM WILL NOT ALTER THE 


ADDRESS LIMITS SPECIFIED AT THE START OF THE PREY OUD OPERATION. 
IF THE FORMAT OR CHECK OPERATION IS TERMINATED BY A *CONTROL C* OR 


a; 
. 
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mo IF @ DIFFERENT DRIVE IS SELECTED, THE PROGRAM WILL RESET THE 
ADDRESS LIMITS TO THE ¥ALUES APPROPRIATE FOR THE DRIVE TYPE. 


12. TO CHANGE EITHER THE ADORESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200(8) OR 204(8) AGAIN. 


4.3 RH11 - RH70 UNIBUS ADDRESS 


THE PROGRAM tt THAT THE RH11 OF 4 test to a START AT 
ae CHa AND THAT He vecreR a are EAP Ion hoe ae MAY 
; CH yf WHEN TH ta I STARTED” PROM Mis ION 
- RH70 IS NOT AT THE DEFAULT ADDRESS THE. PROGRAM MUST 
BE STARTED. FROM 204(8) NINTTTALLY AS THE PROGRAM GOES THROUGH THE 
ADDRESS CHANGE ROUTINE AT INITIAL START ONLY. ENTER THE RH11 RH7C 
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM. 


4.4 OTHER UMIBYS ADDRESSES 


toc <M contents FUNCTION 
1144 $TKS «177560 TTY KEYBOGRD STATUS REGISTER 
ide  §TkB  177eb2 TTY KEYBOARD BUFFER REGISTER 
liso $TPS.~—Ss«177564 TTY PRINTER STATUS REGISTER 
i182  §7PB «177866 TTY PRINTER BUFFER REGISTER 
1196  §LkeSR 172640 KWi1-P CONTROL REGISTER 
1200  $LKCSB 172542 Kult1-P COUNTER REGISTER 
i502 SCPVEC 104 KWi1-P VECTO 
1306  «SLKS. «177546 KWI1-L CONTROL REGISTER 
1zi0 = SLKV.Ss«d100 TADDRESS OF KW11-L VECTOR 

5 SWITCH REGISTER SETTINGS 9 
SW<15>=1...HALT ON ERROR 
SW<13>=1.. INHIBIT ERROR TYPEOUTS 
SW<10>=1.. BELL ON ERROR 
$4<03)=1" LOOP ON 


ERROR 
SW<O2>=1...D0N’T DISPLAY ara STATUS AFTER INITIAL START 
SW<O1>=1...LOOP ON THE CURRENT 
SW<00>=1...LOOP THE PROGRAM ON THE SELECTED DRIVE 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.£. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A *SOFTWARE’ SWITCH REGISTER. THE 
"SOFTWARE? SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED. THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G*. THE PROGRAM WILL 
RECOGNIZE THE *CONTROL G’ AT ANY TIME EXCEPT WHEN THE POO gran 
73 AT A HIGHER PRIORITY PROCESSING AN RMO1 INTERRUPT. THE 

*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
1 THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


MD=-1 perm RMOi 


RMF OR. P 


W000) CF) GI LI GUC WGI OI td 
TU +0 b= 0-0 = (2 
Odo nNOuUl Cire Ow 
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*SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTING ARE ENTERED, THE eae SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., "RUBOUT’ GND 
*CONTROL U’ oe MAY BE seb TO CORRECT “TYPING ERRORS 

DURING SWITCH EN?R 


ON PROCESSORS ITH HARDWARE SWITCH REGISTERS THE ‘SOFTWARE’ SWITCH 
ISTER MAY THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
POSITION a OO ITE REGISTER REFERENCES WILE BE TO THE 

‘erga a reGrs R AND THE PROCEDURES DESCRIBED ABOVE MUST 


ERROR MESSAGES 


1. ‘RH11 INTERRUPT OCCURRED (RMAS=0) - AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


2. ‘UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


3. URESSEYECTED "EY Fhe AHIT THEN THE INDECATED REGISTER UAE READ. 


4. ‘*MASSBUS PARITY ERROR (PAR=1)" - A CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 


*ADGRESS PLUG CHANGE BIT SET’ - THE PROGRAM FOUND THE *OPE™ 
BIT SET FOR THE INDICATED DRIVE. 


6. ‘RH11 DIDN’T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ - THE INDICATED DRIVE HAS GONE OFFLINE 


*PERSISTENT DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING ‘DRIVE 
CLEAR’ INSTRUCTIONS. 


39. ‘’UNCORRECTABLE MASSBUS PARITY ERROR’ - THE PROGRAM ATTEMPTED 
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSSUS PARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A ‘PAR’ ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


id. ocean TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 


ul 


11. ‘DRIVE UNSAFE ERROR’ - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


12. ‘*CONTROLLER/DRIVE ERROR DURING WRITE’ - THE INDICATED NON-DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 


SEG 9007 
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366 13. ‘CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ - A NON-DATA ERROR 
37 OX RURBED Bathe FE ART RABE 

S 

268 14. ‘DATA ERROR DURING WRITE CHECK" - A DATA RELATED ERROR OCCURRED 
a7e oe A cae he Fo OPERATION A DATA ERROR IS CONSIDERED 
3 LLOWING ERRORS: *DCK’, ‘OPI’, “DTE’, ‘HCRC’, 
273 
374 en 1S. ‘RETRIES NOT SUCESSFUL - SECTOR NCT ACCEPTABLE - THE INDICATED 
3c ! SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 

¢ 
377 16. *CONTROLLER/DRIVE ERROR VERIFYING HEADERS’ - AN ERROR OCCURRED SURING 
378 THE VERIFICATION PASS AFTER FORMATTING. 

( 
390 17. °*HCE’ ERROR VERIFYING HEADERS’ - A HEADER ERROR OCCURRED DURING 
381 THE VERIFICATION PASS AFTER FORMATTING. 
383 18. CYLINDER FIELD IN HEADER IS NOT CORRECT’ - THE CYLINDER FIELD 
384 FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 
386 19. ‘WRITE CHECK ERROR’ - THE RH11 REPORTED A WRITE CHECK ERRCR AND 
387 NO DRIVE ERRORS WERE SET. 
389 
330 
39] 
392 ;, MISCELLANEOUS 
BOS ew DS ieeeaeaenammanamnnia 
394 
33 7.1 FORMAT TIME = 
397 IT TAKES APPROXIMATELY 16 MINUTES TO FORMAT AN ENTIRE RMO1 PACK. 
338 THE "CHECK’ MODE TIME FOR AN ENTIRE RMOL PACK IS 9 MINUTES. 
400 
101 7.2 HALTING THE PROGRAM 
s ERIE SURE (OY Bee eOaR aa ee EEE 

c 

48s 3 Pont Nate PAE oeRA AT. TY BAY A Con ROL of NEND WHILE THE BTEC, {0 1S 
40E TYPING THE ADDRESS, TYPE ANOTHER ‘CONTROL C’; THIS SEQUENCE RETURNS 
197 THE PROGRAM TO THE’ DRIVE ADDRESS ENTRY ROUTINE. 
105 7.3 SURFACE VERIFICATION 
411 THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED_TO PERFORM DISK 
Hie PACK VERTETCATION. IF THE PROGRAM REPORTS A SECTOR AS BEING ‘NOT 
413 ACCEPTABLE’, THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 
414 SECTORS WHICH "PASSED’ MAY OR MAY NOT BE GOOD. 
uiE 
417 
4tE 
423 8. PROGRAM DESCRIPTION 

Sw SOO SOSOSS2SSS220S8e82 
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8.1 


8.2 


8.3 


FORMAT OPERATION 


THe FRORRAL FORMAT PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
PECIFIED BY THE 0 RA OR. 


THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA yin FOR 
ie EN et? Mes FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND. 


FA 
WRITE BEFORE CONTINUING. IF_A DATA RELATED ERROR IS DETECTED 
DURING THE WRITE a, oer DATA ERROR obtee DEFINED "s ONE _OF 


0 L 
THE SECTOR AS BEING FHRLTE CHECKS) Th FOLLOWING Made SEQUE 
THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENGQUNTERED 
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL SE HANDLED A 
DESCRIBED ABOVE. 


IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK 
i ge es OY THE COMMAND FOR THE ENTIRE TRACK CHE PROCEEDING 


IT SHOULD BE NOTED THAT THE Oe ae ot FORMATS THE PACK ONLY 
AND_IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. ERRORS 
THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK 


RFOR E IV 
OF tHE DISK PACK SURFACE, THE PROGRAM CANNOT MAKE THIS score LO. 
7 GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH 
THE PROGRAM CALLS 'UNACCEPTABLE’ INDICATE BAD AREAS OF THE PACK; 
UNFORTUNATELY, SECTORS WHICH "PASS’ CANNOT BE ASSUMED TO BE GOOd. 


DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN SELECTED BY THE OPERATOR. 


CHECK OPERATION 


THE CHECK gs ath ve IS IDENTICAL TO THE WRITE CHECK PORTION OF 
M3 FORMAT OPERATION OPERATION PG ecRIBED aN 7g ON 8.1 EXCEPT 
THAT THE PROGRAM WILL NOT RE-WR EC 


POSITIONER VERIFICATION 


AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE 
POSITIONER IS RETURNED TO THE STARTING CY LINOEE AND THE HEADER 
FROM SECTOR _O ON THE STARTING nent IS READ. THE C 


FROM THE HE IS CO E E 
THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS TYPED. 
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 
OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 
THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK*S POSITIONER 
ADVANCED PROPERLY DURING THE FORMAT OPERATION. 


SEQ 3059 


~~ +& peor ve ’ - ‘ ‘ ‘ 7 . a a) 
e 0 
v 
5 
0G 
ny; 6 
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473 nee 
479 wh 
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481 
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ies 
yE3 =11-028 RMO1 FORMATTTER PROGRAM 
ae TATb P= 11-027, 
485 : #DIGITAL: Eadcenent CORP. 
186 + ; #MAYNARD, mass. 01754 
489 {EPROGRAN BY C. HESS/C. CHEN 
499 t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
491 : XPACKAGE (MAINDEC- 11-D20AC- C2), SEPT 14, 1976. | 
434 .SBTTL OPERATIONAL etre SETTINGS 
> + & 
496 :* SWITCH USE 
497 ‘$  eweess  =—=«- Seeweneososonecooee= 
498 % 1S HALT ON ERROR 
499 1 # 13 INHIBIT ERROR TYPEOUTS 
soo 1% 10 BELL ON ERROR 
501 f te ee LOOP ON ERROR 
E02 i 2 DON’T DISPLAY SYSTEM STATUS. AFTER INITIAL START 
503 te I LOOP ON THE CURRENT TRACK fj 
504 oe 0 LOOP THE PROGRAM ON THE SELECTED DRIVE 
506 .SBTTL TRAP CATCHER 
507 e 
508 cocoa 
503 sual uNiSED LoceTrons FROM 4 776 CONTAIN A ”.+2,HALT™ 
et eee i PbeATT oh “OORT tnd O° me CATCH IHPROPLEES LEB VECTORS 
513 900174 ocoooc DISPREG: grok 0 :;SOFTWARE DISPLAY REGISTER 
SiH nooi7e 900000 SWREG:  :WORD O ; :SOFTWARE SWITCH REGISTER ? 
ast, ee .SBTTL ACT11 HOOKS 
518 y aoe gp eye n+ a tmaacar acters onan mmenainee gram TeS. 
519 : HOOKS REQUIRED BY ACTA : 
be0 gon200 ssy PCs. SAVE PC = ; 
see OODD4E dose a3 | sENbaD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
554 000052 : res " Wl 20000 ;;2)SET Loc.s2 TO 20000 ‘ 
Se co TARE 
| 0! > Serre STARTING ADDRESS = 200 2 
= a 4 
se yoocen pong 992150 : te BEGIN ;NORMAL STARTING ADDRESS i 
2 + Sa .SBTTL STARTING ADDRESS TO CHANGE THE RH11 ADDRESS =*204 
522 conan _ 000137 002140 IMP BEGIN CHANGE THE RH11 ADDRESS 
et .SBTTL BASIC DEFINITIONS ' 
E3E f mie -*INITIAL ADDRESS OF THE STACK POINTER ##* 1100 #4 
637 oo1¢ - tracks 1100 
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BASIC DEFINITIONS 


000011 
000012 


177776 
17777 


177570 


o000000 


000007 


ogcc00 


000340 


100000 


900001 


D2 
we 
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N OF ERROR CALL 


-EQUIV EMT,ERROR ;;BASI 0 
; ;BASI ON OF SCOPE CALL 


C DEFINITI 
-EQUIV I0T,SCOPE SIC DEFINITI 


T 


 ¥MISCELLANEOUS DEFINITIONS 
T= 11 ;:CODE FOR HORIZONTAL TAB 

LF= le ;;CODE FOR LINE FEED 

CR= 15 CODE FOR CARRIAGE RETURN 

CRLF= 200 ‘CODE FOR CARRIAGE RETURN-LINE FEED 


;;PROCESSOR STATUS WORD 
;;STACK LIMIT REGISTER 


PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 


DSWR= 177570 ;;HARDWARE SWITCH REGISTER 
DDISP= 177570 ;;HARDWARE DISPLAY REGISTER 


pAGENERAL PURPOSE REGISTER Der iNT TOW 


Ro= 0 ;;GENERAL REGISTER 
Ri= %1 ::GENERAL REGISTER 
Ro= 42 ::GENERAL REGISTER 
R3= “3 ::GENERAL REGISTER 
R4= “4 ::GENERAL REGISTER 
RS= 4S ::GENERAL REGISTER 
Rb= % ; ; GENERAL ER 
R7= “7 GENERAL REGISTER 
SP= “— ::STACK POINTER 
Pc= "47 ::PROGRAM COUNTER 
-¥PRIORITY LEVEL DEFINITIONS 

PRo= ss) -:PRIORITY LEVEL 0 
PRiz 40 ::PRIORITY LEVEL 1 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR4= 200 ::PRIORITY LEVEL 4 
PRS= 240 ::PRIORITY LEVEL 5S 
PRE= 300 :PRIORITY LEVEL 6 
PR7= 340 :PRIORITY LEVEL 7 
-¥"SWITCH REGISTER” SWITCH DEFINITIONS 
GwiS= 100000 

Swi4= 400 

SWi3= 20000 

SWi2=  1000C 

SwWil= 4000 

Swid= 2000 

Swo9= 1000 

SwOos= 400 

SwO7= e200 

SwOb= 100 

SWwOS= 4 

SWOY¥= 20 

Swo3z= 10 

SWOe= 4 

SWOl= 2 

SWOO= 


1 
-EGUIY SWO9,SW9 
~EQUIY SWOS, SWE 
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610 


ftaleaTealsalealealealeal ea) 
b—* b= bb bp a pe 
WON MULE Wire 


BASIC DEFINITIONS 


190000 


oo0002 
o0oc01 


oo0co4 


000240 


COe 
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SWO7 , SW7 


m 

© 

| 

i 

<= 
DOOOwWOoOwOo~nmvurc 


O9= 1000 
0 


K=MODILMST IMOD 
DoOWMODDMOWM 
4A HHA 
MW cCuIM Now 


I 
I 
I 
I 
I 
I 
I 
I 
I 


’ 
9 
§ 
’ 
’ 
9 
§ 
’ 
’ 


“EQUIV BITOO, BITO 


PIRGVEC= 240 


hehe al TRAP VECTOR ADDRESSES 


IME OUT AND OTHER ERRORS 
se RP AND ILLEGAL INSTRUCTICNS 


; TRACE TRAP es 
tt BREAKPOINT TRAP (BPT) 
1s UT UTP TRAP (IOT) **¥SCOPE x 
ss EMULATOR TRAP (EMT) ‘4*ERROR¥* 
p” TRAP 


ss 1TY are. VECTOR 
;; TY PRINTER VECTO 
;;PROGRAM INTERRUPT REQUEST VECTOR 


5p RRERERAELERAR EERE RARER EERE ELE RRR EE ERE LRA AA LEELA EERE RARE LL RARE 


-SBTTL RH11 REGISTERS 
5p RR RRER ERLE EEE AEAAAAR EAE EERE AZARAE RARE RRAARRA LAER ERE AREER EE SS 


ES 9014 


Oe 
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650 

ped ;CONTROL AND STATUS REGISTER 1 (RMCS1) 

653 000100 IE= 100 ot ENABLE (BIT #6) 

6S4 000200 ROY= 200 READY (BIT #7) 

éS5 000400 Alb= 400 ‘HIGH ORDER BUS ADDRESS BIT (BIT #8) 
£56 001000 Al7= 1000 ;HIGH ORDER ~*~ Po BIT (BIT #9) 
657 902000 PSEL= 2000 RT SELECT (BIT #10) 

658 020000 MCPE= 20000  MASSBUSS PARITY “peek i #13) 
£59 040000 TRE= 40000 : TRANSFER ERROR (BIT # 

23] ;SC= 100090 ;SPECIAL CONDITION (Bit 1s) 

662 ;WORD COUNT REGISTER (RMWC) 

pps ; (EACH BIT IS CALLED BY BIT NUMBER) 

665 ‘As ADDRESS REGISTER (RMBA) 

Eee ; (EACH BIT IS CALLED BY BIT NUMBER) 

Pre ;CONTROL AND STATUS REGISTER 2 (RMCS2) 

£70 000001 US1= 1 ;UNIT SELECT (BIT #0) 

671 000082 USe= 2 ;UNIT SELECT (BIT #1) 

$72 000004 USY= 4 ;UNIT SELECT (BIT #2) 

673 000010 BAI= 10 BUS ADDRESS eat get (BIT #3) 
674 000020 PAT= 20 ; MASSBUS PORT TY TEST (BIT 

675 000040 CLR= 40 *CLEAR (BIT #5) 

676 000100 IR= 100 INPUT READY (BIT #6) 

677 000200 OR= 00 :OUTPUT READY (BI 

678 o0C400 MPE= 400 ;MASS BUS PARITY ERROR (BIT #9) 
679 001000 MXF = 1000 ;MISSED TRANSFER ERROR (BIT #9) 
680 002000 PGE= 2000 ;PROGRAM ERROR (8 10) 

681 004000 NEM= 4000 ;NON EXISTENT MEMORY (BIT #11) 
682 010000 NED= 10000 we EXISTENT DRIVE (BIT #12) 

683 020000 UPE= 20000 ;UNIBUS PARITY ERROR (BIT #13) 
684 040000 WCE= 40000 :WRITE CHECK ERROR (BIT #14) 

Pee 100000 DLT= 100000 :DATA LATE (BIT #15) 

687 ;DATA BUFFER REGISTER (RMDB) 

Pee (EACH BIT IS CALLED BY BIT NUMBER) 

690 

Fas a. ELKKK KKK EAE LAL ALLEL KEL EL ERE AE LEAK AREER ER AL ERA ER TERE RE LERERATEE 
24 .SBTTL RMOL REGISTERS 

Pep : 5 RRA RL ELE L AREA KEE RE RAL ELE EAE A ER EL ERE RA EE REEL ELE REL ARAL LERER 
24 ;CONTROL AND STATUS 1 REGISTER. (#00) 

699 000001 GO= 1 ;GO BIT (BIT #0) 

700 oo0002 Fl= 2 FUNCTION CODE BIT #1 

701 000004 Fe= 4 ; FUNCTION CODE BIT #e 

702 000010 F3= 10 ;FUNCTION CODE BIT #3 

703 900020 F4= 20 FUNCTION CODE BIT #4 

704 OCC040 FS= 40 :FUNCTION CODE BIT &5 

705 004090 DVA= 4000 :DEVICE AVAILABLE (BIT #11) 


02 


LL 
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706 
ad ;DRIVE STATUS REGISTER (RMDS1) (#01) 
79 VV= sVOLUME VALID (BIT #6) 
a4 tisteeaee ORY= 108 yolk! READY sit #7) 
fli 009400 DPR= 400 IVE PRESENT (8 (BIT #9) 
ra = 
5t§ ARAP CE Pave = ABBE PaO QUABLE {BANcPERRED (BIT w10) 
714 ou#ooc WRL= 4000 rite LOCK (BIT Y 
715 910000 MOL= 10000 be IUM ON-LINE ( #12) . 
716 020000 PIP= 20009 POSITIONING OPERATION IN , PROGRESS (BIT #13) 
717 040900 ERR= 40000 “COMPOSITE ERROR (BIT #14 
ig 190060 Ta= 100000 :ATTENTION ACTIVE (BIT ue) 
4 
720 ;ERROR REGISTER #01 (RMERI) (#02) 
(Es 
722 ooo001 ILF= 1 s ILLEGAL FUNCTION (BIT 40) 
723 ooooo2 ILR= 2 ILLEGAL REGISTER (BIT # 
724 oc9004 RMR= 4 :REGISTER MODIFICATION RePUSED (BIT #2) 
72 000910 PAR= 10 :PARITY ERROR (BIT #3) 
726 o00520 FER= 20 ‘FORMAT ERROR (BIT #4) 
727 000040 WeF= 40 ‘WRITE CLOCK FAIL (BIT #5) 
728 090100 ECH= 100 “ECC HARD ER ROR (BIT #6) 
729 oo9200 HCE= 200 HEADER RE ERROR (BIT #7) 
730 000400 HCRC= 400 : HEADER ERC ERROR (BIT #9) 
731 091000 AOE= oo0 ;ADDRESS OVERFLOW ERROR {BiT #9) 
732 002000 ¢ IAE= 2000 j INVALID ADDRESS ERROR (BIT #10) 
733 904000 rat WLE= 4090 WRITE LOCK ERROR (BIT #11) 
734 o10000 ; OTe= 10000 ‘ORY IMING ERROR (BIT #12) 
735 d20000 ee: OPI= egg : OPERATION NCOMPLETE (BIT #13) 
736 940080 UNS= 4000 ‘DRIVE UNSAFE (BI 
737 1c0900 DcK= 100000 DATA CHECK ERROR (BIT. 15) 
533 ;MAINTAINABILITY REGISTER (RMMR1) (#03) 
74] 00000: DMD= 1 sDIAGINOSTIC MODE (BIT #0) 
742 909992 MCLK= 2 :MAINTAINABILITY CLOCK (BIT #13 
743 oscoo4 MINX= 4 :MAINTAINABILITY INDEX (BIT #2) 
Tae 900019 MSTCK= 19 :MAINTAINABILITY SECTOR CLOCK (BIT #3) 
745 o00020 MRD= 20 :MAINTAINABILITY READ (BIT #4) 
74 000049 MWR= 40 :MAINTAINABILITY WRITE (BIT #5) 
and 009200 OTSY= 200 :MAINTAINABILITY SYNC DETECTES (BIT #7) 
ae sATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
75 ‘ ATO= l :DEVICE 0 (BIT #0) 
bes iattset 2 Alls 2 -DEVICE 1 (BIT #1) 
752 oooco4 AT2= 4 :DEVICE 2 (BIT #2) 
754 000910 AT3= 10 s DEVICE 3 (BIT #3) 
7Ec 000020 aTs= 20 :DEVICE 4 (BIT #4) 
75E oooo4e ATS= 40 -DEVICE S (BIT #5) 
757 990109 ATb= 100 -DEVICE & (BIT #6) 
758 050290 AT7= 200 :DEVICE 7 (BIT #7) 
fss 
760 ;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (80S) 


761 ; (EACH BIT IS CALLED BY SIT NUMBER) 


a 
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762 

763 ;DRIVE TYPE REGISTER (RMDT) (#06) 

7ES 996001 pTo0= 1 :DRIVE TYPE NUMBER BIT 1 

PEE 900002 DTol= 2 ‘DRIVE TYPE NUMBER BIT 2 

767 900004 OTO2= 4 ‘DRIVE TYPE NUMBER BIT 3 

768 990010 OTO3= 10 !DRIVE TYPE NUMBER BIT 4 

769 900020 OTO4= 20 ‘DRIVE TYPE NUMBER BIT S 

770 oo9040 DTOS= 40 DRIVE TYPE NU BE BIT g 

771 900190 OTO6= 100 DRIVE TYPE NUMBER BIT 

772 900200 DTO7= 200 : DRIVE TYPE NUMBER BIT 8 

773 900400 DTO8= 400 ‘DRIVE TYPE NU IT 9 

274 994000 DRQ= 4000 DRIVE REQUEST REQUIRED (BIT #11) 

775 o20000 MOH= 20009 :MOVING HEAD (BIT 

775 049090 TAP= 40000 ‘TAPE ORIVE (BIT 

777 100000 NBA= 109009 !NOT BLOCK ADDRESSED. (BIT #15) 

(¢ 

773 ;LOOK-AHEAD REGISTER (RMLA) (#07) 

¢ 

781 900100 ScOl= 100 SECTOR COUNT FIELD O (BIT #6) 

782 o90200 CO2= 200 SECTOR COUNT FIELD 1 (BIT 87) 

793 900400 Sco4=  4O0 SECTOR COUNT FIELD 2 (BIT #2) 

2 ae rcs Gat HER i Hs 
2 = Lu) 

58e BBSoS Reo: Gao STRACK FIELD 1 (BIT ali) 

797 010000 TRK2= 10000 + TRACK IED 2 (BIT #12) 

739 620000 TRK4= 20000 :TRACK FIELD 3 (BIT #12) 

739 atalatela TRK1O= 40000 ‘TRACK FIELD 4 (BIT #14) 

730 100000 TRK20= 100000 TRACK FIELD S ‘BIT #15) 

eee OFFSET REGISTER (RMOF) (#11) 

734 900001 OFDIR= 1 OFFSET DIRECTION FOR RMOL 

795 602000 HCI= 2000 HEADER COMPARE INHIBIT (SIT #12) 

796 904900 ECI= 4009 ‘ERROR CORRECTION CODE INHIBIT (SIT #11? 

237 dice FMTil6= 10000 :FORMAT SIT (BIT #le 

799 ; DESIRED CYLINDER ADDRESS (RMDC) (#12) 

B00 : (EACH BIT IS CALLED BY BIT NUMBER) 

age SERIAL NUMBER REGISTER (RMSN) (#14) 

a ; : (EACH IS CALLED BY BIT NUMBER) 

£05 sRMO1 MAINTENANCE REGISTER #02 (RMMR2) (#15) 

g07 o4ooce SkI= 40000 :SEEK INCOMPLETE (BIT #14) 

eos sECC POSITION REGISTER (RMEC1) (#16) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


sE Ee PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


jp RRRERREAREAER LE EERE ERA R LEE EERE RAERA REE RAER AE RARE RESELL ARR RSERE 
~SETTL RMO1 DRIVER COMMANDS 


cocococococococe 


o-* & +) + b+ 8+ bps 


SOP Un core (9 


GOe 
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sinha R.PLi RMG1 ORIVER COMMANDS 

818 

ase 5 RRRRARAERAL ARE REALE LAAT ERE LE LEELA ALAA SLE AELELALL LAL LEAL LL AAR ELSE 

821 006101 RNOP = 101 ;NO_OPERATION 

822 900105 EEK = 105 ; SEEK 

822 000107 RECAL = 107 ; RECALIBRATE 

824 990111 DRVCLR = 111 DRIVE CLEAR 

825 909113 ELSE. = 113 ; RELEASE 

826 000115 OFFSET = 115 ; OFFSET 

827 000117 RTC = 117 sRETURN TO CENTER LINE 

828 00012: READIN = 121 READ IN PRESET 

529 000123 CK = le3 ; PACK in 

830 900131 SEARCH = 131 

831 000141 GETREG = 141 :GET REGIST ERS 

832 090143 SETFMT = 143 eT FORMAT (& ECI OR HCI) 

833 000145 SELDRV = 145 ECT DRI ri 

a ie ee: ie ITE OSE Deen oa 

= A 

836 JO0ib1 WRTDAT = ib] WRIT neck 

&37 000163 WRTHD = 163 ;WRITE HEADER & DATA 

£38 093i71 RDDAT = 171 ; 

839 000173 RDHD = 173 ;READ HEADER & CATA 
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001190 


001167 
001170 


001172 


CSicee 


“oc 


901100 
oo000c 
00 


0000 1e 
900015 


OO14EE 


000106 
000iSe 
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-SBTTL COMMON TAGS 


5 EER R ERE KERR ELE REE EEE EEE LEELA ERAAE EEE AEE REA EERE EAE E SEES ES 
TATHIS TABLE ge Dad VARIOUS COMMON STORAGE LOCATIONS 
;*#USED IN THE PROGR 


-=1100 
SCMTAG: 
$PASS: .WORD 0 
STSTNM: .BYTE 
SERFLG: .BYTE 0 
ICNT: .WORD 0 
SLPADR: .WORD 2 
LPERR: .WORD p 
ERTTL: :WORD 
SITEMB: .BYTE OO 
SERMAX: .BYTE 1 
SERRPC: :WORD 0 
$GDADR: .WORD : 
SBDADR: : WORD 
S$GDDAT: .WORD 0 
SBDDAT: .WORD 0 
“WORD O 
“WORD 0 
SAUTOB: .BYTE 9 
SINTAG: .BYTE 0 
“WORD 0 
SUR: -WORD DSUR 
DISPLAY: .WORD DDISP 
TKS: 77560 
TKB: 177562 
$TPS: 177564 
TPB: 7566 
SNULL: .BYTE O 
SFILLS: .BYTE 2 
SFILLC: .BYTE Ie 
STPFLG: .BYTE 0 
SESCAP be 
SBELL: .ASCIZ <207><377><377> 
SQUES: .ASCII /?/ 
$CRLF: .ASCII <15> 
iF: S¢IZ <12> 
~éR = 
LF F 3 
SRMADR: .WORD 176700 
SRMVEC: .WORD 4 
SLKCSR: .WORD 172540 
LKCSB: .WORD 172542 
SLPVEC: .WORD 104,106 
LKS: WORD 177546 
SLLVEC: :WORD 100,102 
RIVE: .WORD 0 
SOFSW: :WORD 0 
MODE: .WORD O_ 
ENDCYL: .WORD 822. 


;;START OF COMMON Lis. 
3 CONTAINS PASS COUN 
;CONTAINS THE TEST NUMBER 
: CONTAINS ERROR FLAG 
Eps adb SUBTEST ITERATION COUNT 
5 ;CONTAINS SCOPE Pat ADDRESS 
+s RONTAT Ne 2 3 COPE RETURN FOR ERRORS 
; ;CONT OTAL Hoag DETECTED 
eine AL CONTROL BYTE 
bth mo ERRORS PER TEST 
C OFT AST ERROR gs 

He Ne ADDR S65 QF *GOQD’ 

al NS ADDR 5 DATA AD" pata 


: CON 
TICONTAING ‘ 


* DATA 
t  RECERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


;;ADDRESS OF SWITCH REGISTER 
Bat a a ail REGISTER 


titty KBD BUFFER 


TERMINAL LEVBITABLE™ FLAG (BIT CE? SOSvES) 
;;ESCAPE ON ERROR ADDRESS 

::CODE FOR BELL 

i }QUESTION MARK 

;;CARRIAGE RETURN 


: sL FEED 
OT TETTT LETTS PETE EEE TT TTT ET ETT ET TET ERT TT ETTT TET ETE TT PeET TET TTT 
15 


;RH11/RMOL UNIBUS ADDRESS 
;RHI1 INTERRUPT VECTOR 


; ADD rif ie -P CSR 
ADDRESS OF KW11-P cern BUFFER 
ADDRESS OF KW11-P 
ADDRESS OF ity CONTROL REGISTER 
:ADDRESS OF KW11-L VECTOR 
:CONTAINS DRIVE NUMBER SELECTED 
:CONTENTS ARE FOR SOFTWARE DECISIONS 
"FORMAT & VERIFY’ OR "CHECK’ MODE INDICATO! 
ENDING CYLINDER 


. 
ee a 


Oe 
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RMFOR.P COMMON TAGS 
898 001224 ocoo00 BEGCYL: .WORD 0 STARTING CYLINDER 
SR Bis ee ee Pr ai 
301 BBBB Bee WORD 0 STOTAL # OF TRACKS TO BE FORMATTED 
9°2 0901234 000000 TTRKSC: .WORD 0 ‘TOTAL # OF TRACKS COUNTER 
903 001236 o00009 TRKCNT: :WORD CG COUNTS TRKS FROM O-5 PER CYL 
304 091240 900000 PATSEL: .WORD 0 : CONTAINS PATTERN SELECTED 
905 901242 900000 PAT WORD 0 1ST WORD OF PATTERN 
306 44 900000 PATB WORD 0 :2ND WORD OF PAT TERN 
907 001246 900000 CYLCK: :WORD 0 STORE CYLINDER ADDRESS FOR FORMAT VERIFICATION 
s08 001250 oo0000 E WORD OQ !MAINTAINS # OF WRITE RETRIES M MADE 
08 01252 900000 SAVSEC: :WORD 0 ;CONTAINS LAST BAD SECTOR ON FORMAT 
910 001284 090000 SAVUC WORD 0 : CONTAINS Wc FOR pat Oe oR ERROR 
gis BBisPa Boone Wee, HORBB :39,0 RORBLEMENT OF Hc 
313 001262 ooOc900 HEDERR: .WORD POSITIONING ERROR DURING FORMAT INDICATOR 
314 001264 odogoc0 SEC30:  .WORD 0 R 32 SECTOR MODE INDICATOR 
gis :0 = 30 SECTOR MODE 
316 1’S = 32 SECTOR MODE 
317 001266 oog000 MAXSEC: .WORD 0 ay SECTOR ADDRESS (FOR EITHER 30 OR 32 SECTOR 
5 uae mous ie: we aes & Ce CaO 
€2i of1274 odoo0000 DDRIVE: “WORD - : ADDR E NUMBER OF MORIGERS ERROR MESSAGES 
382 001276 oo0000 ATTN:  .WORD OG i BTTENTION REGISTER IMAGE FOR ‘DRIVER’ 
$24 001300 coo000 ONTLC: .WORD 0 ADDRESS OF ’ tC’ RETURN 
925 901302 oo0000 CHGADR: .WORD 0 : CHANGE RH11 ADDRESS’ FLAG 
$26 001304 ooco00 WRAP:  .WORD 0 ‘WRAP AROUND FLAG Ee eMaT FROM HIGH 
357 :CYLINDER # TO LOW CYLINDER & 
323 -RH11/RMO1 REGISTERS STORED HERE AFTER AN OPERATION 
93 1306 coo900 RM.REG: .WOR sRMCS1 
93 2 1310 900000 "WOR 5 Me 
933 001312 o00000 WORD © : RMBA 
934 001314 oo0000 WORD 0 : RMDA 
935 001316 o90000 WORD 0 :RMCS2 
936 001320 o00000 WORD 0 = RMDS 
937 00 o00000 WORD 0 RMER1 
938 001324 oj0000 WORD OQ : RMAS 
939 001326 O00000 WORD 0 :RMLA 
940 001330 900000 WORD OQ : RMO 
941 001332 o00000 WORD 0 :RMMR1 
5 BS See oe a 
au Bhi 33 BBG 60 WOR 5 : RMOF 
- 45 001342 Oo0000 WORD 0 :RMCA 
946 001344 o00000 WORD 0 :RMDC 
947 o134 p00000 WORD 0 : RMER2 
gue 901350 Oooc0D WORD 0 : RMMRe 
g49 001352 o00000 "WORD 0 tRMEC 
#50 601354 ococno "WORD O :RMECO 
955 


53 ;DATA/PARAMETER BLOCK - USED FOR ALL DRIVE OPERATIC! 


001374 


001376 


001426 


001430 


001474 


061500 


og140 


Bb1s08 


000000 


001430 
001443 
001456 
001467 
000000 


052123 
054503 
23 

105 
04SSee 


025732 


O4S0cer 
O4E032" 


001467 


009005 


051101 


001224 
001230 
001222 
OCle26 


054503 
052040 
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;ORIVE NUMBER 
Ore Ty ule OR FMT22,ECI, 


:PSEL AND Al7 AND ALE 


Bre Eide ERROR Occu 


T AND BIT 06-03 
DICATE TYPE OF ERROR 


;ASCII MESSAGES FOR ADDRESS PARAMETERS 


PARI: .ASCIZ @START CYL a 
PARe:  .ASCIZ @START TRK a 
PAR3:  .ASCIZ @END CYL a 
PAR4:  .ASCIZ @END TRK @ 


;SECTOR BUFFER ADDRESS TABLE 


ADRTBL: .WORD BUFP 
-WORD BUFP+<S16.#1 
-WORD BUFP+<516.%2 
-WORD BUFP+<S16.%3 
-WORD BUFP+<S16. #4 
-WORD BUFP+<S516.%5 
WORD BUFP+<S16. #6 
WORD BUFP+<S16.#7 
WORD BUFP+<516.%8 
WORD BUFP+<S16.#9, 
WORD BUFP+<S16.#10 
WORD BUFP+<516.#11 
WORD BUFP+< 1b. iE 
WORD BUFP+<S16. #1 
WORD BUFP+<516.#14 
WORD BUFP+<516.#15. 
WORD BUFP+<S16. #16. 


*'= 28s = © © © @ @ 
[ss WwYwYYYeee ewe 


;ADDRESS OF SECTOR 0 


‘ADDRESS OF SECTOR 
; ADDRESS OF SECTOR 


D 

Oo 

Oo 

P*) 

m 

w 

w 

=] 

nw" 

w 

Mm 
oO oO oO 
oo r= 3 
Dw xz wa 

rb bb bt ONO UICW me 


MftwMV--O 


; ADDRE 
ADDRESS OF SECTOR 16 


OCCURRED 


‘ 


AND HCI 


were RMO1 eo tae PROGRAM 


RMF OR. P 


jaw | oe] oe | om | oe] on | oe oe | oe) 


001542 


001574 
001576 


001600 
0 


COMM 
047036 


064122 
065126 


000402 


020190 
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BUFP+<516. *30. 
BUFP+<516.*31. 


COUNT TABLE 


258.+<258. *8. 
258. +<258. #10. 


m 
wn 
co 
+ 
~ 
rm 
uw 
co co 
oc 
uw 
wweevrvrovreeve 


ess. 

258.+<258. #18. 
258. $< gd. HL 
258.+<258. # 


we 


258. +<258. #31. 


Oo 
esevvte8eeéss 6 *s 2s © © © & @ 
YNYNY NYY YY YY Yee eee ee ee 


> 

> 

> 

> 

> 

> 

> . 
Bs IE eS | ; 

> 

> 

> 

> 

> 

> 


; ADDRESS OF SECTOR 17 


aan Se 


;REMAINING WORD COUNT AFTER SECTOR 0 
‘REMAINING WORD COUNT AFTER SECTOR i 


TREMAINING WORD 
FREMAINING WORD COUNT 


RD COUNT AFTER SECTOR 


REMAINING WORD COUNT AFTER SECTOR é 


:REMAINING WORD COUNT 
;REMAINING WORD COUNT 


REMAINING WORD COUNT AFT 


; REM MAINING WORD COUNT 


in BENING Wok E3uNt 


RETAINING RD COUNT 
REMAINING WORD count 
;REMAINING WORD 


Ren RINING WO Wor C count 


: REMAINING WORD COUNT 


AFTER SECTOR 9 


AFTER SECTOR 
ER SECTOR 
AFTER SECTOR 
AFTER SECTOR 


T AFTER SECTOR 


D 

~" 

coe | 

m 

za 

w 

m 

oO 

4 

oO 

xz 
furu le eb eS, 
WOOO CUWIMH- oO 


mr-O 


AFTER SECTOR 30 
AFTER SECTOR 31 


02 
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RPI} ERROR POINTER TABLE 
1063 .SBTTL ERROR POINTER TABLE 
106 :*THIS TABLE CONTAINS TH TUNE ORNATION FOR EACH ERROR THAT CAN OCCUR. 
Be :*THE INFO EASTON ty OBTAI bby USING THE INDEX NUMBER FOUN D IN 
i067 : €LOCATION SITENB. _ Tals Norge : R INDICATES WHICH Ten ail TABLE IS PERTINENT. 
hs sANOTEL: Lect Tete 8 Fue Foote cbRR A NEN ate de. SERRE Theo AS FOLLOWS: 
rd 
1071 :% EM :POINTS TO THE ERROR MESSAGE 
1072 :% DH SEBOIN NTS 19 THe be he ERP 
1073 :# OT ::POINTS 
1074 + OF : POINTS 10 He ATA FORMAT 
1075 
1076 
1977 001700 SERRTA: 
1078 “ERROR 1 
1080 001700 oOeetos EM1 ;RH11 INTERRUPT OCCURRED (RMAS=0) 
1081 001702 023724 DH1 
1082 001704 Oeses6 O71 
1083 001706 OeSéie OF 1 
1084 
1085 -ERROR 2 
1087 091710 oceeE4E EM2 :UNEXPECTED ATTENTION OCCURRED 
1088 001712 023772 DH2 
1089 001714 O2s274 DT2 
1090 001716 O25616 DF2 
1091 
103¢ sERROR 3 
1094 001720 022704 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 
1095 001722 Oo4D44 DH3 
10968 001724 25310 0T3 
1097 001726 OeS622 DF3 
1098 
1038 :ERROR 4 
1101 001730 022742 EMY :MASSBUS PARITY ERROR (PAR=1) 
1102 001732 o24115 DHY 
1103 001734 025324 OT4 
1104 001736 OeS626 OFY 
1106 sERROR 5 
1107 
1108 001740 ooDc00 0 : UNUSED 
1109 001742 900000 0 
1110 001744 900000 0 
1111 001746 ood000 9 
112 
1113 sERROR & 
1115 001750 023033 EME :RH11 DIDN'T RESPOND TO ADDRESSING 
1116 001752 oe4200 DHE 
1117 001754 O2534e2 OT 
1118 001756 925632 OFE 


2 
265 


bs es ee bb ee Tl! 
b= 0 bb bb bb eb bs be he bs bs bs be bs bo bo be be bs se be pe 
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ll ERROR POINTER TABLE 
;ERROR 7 
tte pooeen 0 ; UNUSED 
Borges 00000 5 
001766 000000 0 
;ERROR 10 
poz? 023075 EM10 ;DRIVE OFFLINE 
01772 Getel3 DH10 
001774 025344 DT19 
001776 025636 DF 10 
;ERROR 11 
002000 023113 EM11 ;PERSISTENT ORIVE UNSAFE ERROR 
002002 O24e13 DH10 
002004 025344 DT10 
002006 025636 DF10 
;ERROR 12 
. M1 ;UNCORRECTABLE MASSBUS PARITY ERROR 
Bosoie feast BHI / 
002014 025344 DT10 
002016 025636 DF 19 
;ERROR 13 
002020 023214 EM13 ;SOFTWARE TIMEOUT 
002022 024213 DH10 
002024 025344 OT10 
002026 025636 DF 19 
;ERROR 14 
002030 023235 EM14 ;CRIVE UNSAFE ERROR 
002032 024213 DH10 
002034 025344 DT10 
002036 025636 DF 10 
;ERROR 15 
002040 023260 EM1S ;CONTROLLER/DRIVE ERROR DURING WRITE 
002042 Oe4el3 DH10 
002044 d25344 DT10 
002046 025636 DF 10 
; ;ERROR 16 
002050 023324 EM16 ;CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
002052 Oe42e13 |. i DH10 ; 
002054 25344 / D110 


002056 OeS&3é . DF 16 


002064 
0C2066 


woooomn 
Wm fWwre 


002070 
ti 


02076 


002100 


ALOK Bowe 


002106 


oO 


002110 


002116 


TOTO P00 10 TU er bb 


ODdo0d000wWw 
UNC WM—-OoONe 
oO 
Oo 
atl 
— 
_— 
iat) 


0& 002120 


00212 


002130 


002136 


002140 
002146 


158 BdsiE8 
a ee 


MD-11-DZRMA, RMO1 FORMATTTER PROGRAM 
RMFOR.P1t 


ERROR POINTER TABLE 


023376 


OeS6Se2 


023454 


025636 


Re aees 


023632 
025005 
025512 
025676 


023702, 
025103 
025524 
des70e 


177777 001302 
001302 


012737 
000402 


Boaeas 


012706 001100 
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;ERROR 17 : 
;RETRIES NOT SUCESSFUL - SECTOR NCT ACCEPTABLE 


;DATA ERROR DURING WRITE CHECK 


;ERROR 21 he ? 
;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 


;HCE’ ERROR VERIFYING HEADERS 
;CYLINDER FIELD IN HEADER IS NOT CORRECT 


;WRITE CHECK ERROR 


es SERRA AAAS AAAS ARAL KAA ASE AE SESE LE ESSER KA HAAR SAA AAAAAASAATSLETE 

.SBTTL MAIN PROGRAM 

a3 EREE EGE EEE ELLER KER RR EERE AEE H EE EDEL EE REE EEE EERE ALEA RAE EER 

BEGIN: HOY #1 CHGADR ;SET CHANGE. *RH70 BUS ADDRESS’ INDICATOR 


{START THE PROG 
prays: eer shame ieee THE "ANGE RH70 ADDRESS’ INDICATOR 
"SEITE. INITIALIZE THE COM 


aR T Ri THES ¢$CHTAG) 
3 3CLE Bg oe eonTae, Re "a, LOCATION TO BE CLEARED 


SEQ 0025 


- wR, 


RMF OR 


002162 


002400 
002404 


002454 


abo RMO1 FORMATTTER ys ta 


INITIALIZE THE CO 


005026 


112737 


013746 


001012 
000403 


012637 
000005 


104401 
004737 
005737 


001140 
001100 
007304 


000001 


000004 


002306 
000176 


000174 
ooooo4 


000240 


177777 


025732 
000011 


026010 
0106Se2 
oooo4e 
001140 


000001 
177777 
026226 


00117e 
001174 


000030 


0 
000036 
001115 


000004 


000036 
000032 
001300 


000041 


000176 


001134 


Ole714 
Ole716 
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CLR (R6)+ ;;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? 
BN - 6 LOOP BACK IF NO 

_aST ACK SP SETUP THE STACK POINTER 

HSERROR, QUEMTVEC ; s ENT, VECTOR FOR ERROR ROUTINE 

MOV HSTRAP. JBTRAPVEC’ j TRAP VECTOR FOR TRAP CALLS 

MOV #340, JATRAPVEC+2 dive 

CLR SESCAPE i3¢ cLERR THE ESCAPE ON ERROR ADDRESS 


MOVB uo 
:;SIZE FOR A HARDWARE SR TTCH REGLETER. NOT FOUND OR IT IS 
EQUAL 10 A “-1* eos TUP FOR A SOFTWARE SUITCW REGISTER. 


OV DKERRVEC,-(SP) ;;SAVE ERROR V 
MOV #O4S a#ERRVEC ;;SET UP ERROR VECTOR 
MOV #DSWR, SWR SETUP FOR A HARDWARE SWICH REGISTER 
MOV sis DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
CMP #-1, ISUR :: TRY TO REFERENCE HARDWARE SIR 
BNE Beh ; |BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SHR IS NOT = -1 

BR b5$ : TBRANCH IF NO. TIMEOUT 

64S: Moy #65$, (SP) ::SET UP FOR TRAP RETURN 

65$: MOV #SWREG, SWR /ssPOINT TO SOFTWARE SWR 


MOV IOIPREG DISPL 
663: MOV (SP)+, SAE RRVEC ” RESTORE ERROR VECTOR 


RESET ;CLEAR WORLD 
MOV #PRS,Q8TRAPVEC+2 ;CHANGE TRAP PRIORITY BACK TO 5 
MOV #PRS’ OHENTVECHE Rene EMT PRIORITY BACK TO S 
MOV WBEGINI, CNTL NTROL C’ RODR ESS 
INC #-1 FIRST START 
BNE 1$ :BR IF NOT 
TYPE TITLE ADRS OF *TITLE’ MESSAGE 
CMPS ss 11,41 ; LOADED FROM AN RMOL ? 
BNE 1 F NOT 
TYPE  , LOADRV INSTRUCT OPERATOR TO REMOVE *XXDP* 
:PACK FROM DRIV 

1$: JSR ON THE KEYBOARD INTERRUPT 

-SBTTL GET VALUE tor ay WARE suTTeH REGISTER 
TST WE RUNNING UNDER XXDP/ACT? 
BNE a + BABIN CH IF YES 
CMP SWR, #SWREG ;;SOFTWARE SWITCH REG SELECTED? 
BNE 685 BRANCH IF NO 
GTSWR si GET SOFT-SWR SETTINGS 

67s: MOVE #1, SAUTOB :;SET AUTO-MODE INDICATOR 

INC t-1 ; CHECK FOR FIRST START 
BNE SETVEC :BR IF NOT 


JSR SADR CHECK THE RH11 ADDRESS 
MOY SRABDR RMADR § :RHI1 ADDRESS 
MOV SRMVEC;RMVEC  :RH11 VECTOR ADDRESS 


;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
; PROGRAM WILL USE 


em RMO1_ FORMATTTER PROGRAM 


RMF OR 


b+ oo bP ee 
WWWWOIWWWWW) 

hag 4k art oye ae a 
—-OWONT UIC We 


09e71e 


002716 


002722 


004737 


104401 
010446 
104403 

2 


104401 


005037 
104491 


006352 
Ole73e 
177777 
177777 
000004 
000340 


001167 
O2le7e 


021335 
012566 


012576 


021211 
021226 
021170 
021243 
021201 


000901 


021260 
o0000e 


021265 


001167 
000016 
001167 


001220 
021547 


012654 


176424 


177776 «115: 


002674 
012576 


002674 
012576 


002674 


MACY11 27(732) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


SETVEC: JSR 
JSR 


1$: 


2s: 
38: 
4$: 


- Ges 


6$: 


108: 


ao 
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PC,ST.CLK 

PC’ RMINIT 

el, SAVEFG 
tg 

#Si102, SUR 

#PR7,PS 

RY 


, SCRLF 
"SYSTAT 


RY, -(SP) 
2 

LIN4SP 
ORVSTACRY) 
4g 

S$ 
DRVTYP(RY) 
2 


3$ 

NOTRM 
NOTPRS 
UNTOFF 
NOTSAF 
, UNTON 


;START THE CLOCK 

‘INITIALIZE THE RMO1 DRIVER 
:SET THE SAVE ceele ERS FLOG 
:SEE_IF FIRST STA 


BR IF YES 
sTYPEQUT THE DRIVE STATUS TABLE ” 


;SET PRIORITY TO 7 
DRIVE TABLE YPOINTER 


: CR-LF 
i PE STATUS HEADING 


;;SAVE RY FOR TYPEOUT 
tye DRIVE NUMBER 

O TYPE--OCTAL ASCII 
ii : TYPE " DIGIT(S) 

;, QUPPRESS LEADING ZEROS 


eke DRIVE’S STATUS 

;BR IF UN SAFE 

;BR_ IF ONLINE 

;SEE_IF OFFLINE o NONEXISTENT 
:BR if wee ISTENT 


:BR I FLINE 
;DRIVE NOT AN RMO1 
;CHECK NEXT DRIVE 
;DRIVE NOT PRESENT 
;CHECK NEXT DRIVE 
;DRIVE OFFLI 
;PRINT DRIVE TYPE 
;DRIVE UNSAF 
;PRINT DRIVE TYPE 
sDRIV NLIN 

; SPA 


CES 
teeta OF RPOY MESSAGE 


kRMO1B, 8S \ 
ee sDRVTYPCRS} \ 


PY ; 
Res OF RPOS MESSAGE 


seryOl SBavtvecral 


7 
#RMO1A, 8S 


OS CRLE 
RY 


RY, #8. 
» SCRLF 


YES 
iBBoaess OF RMO1_ MESSAGE 
; TYPE THE ORIVE TYPE MESSAGE 
MESSAGE ADDRESS HERE 


:CR- 
s INCREMENT DRIVE NUMBER“TABLE POINTER 
FINISHED ? 


BR IF NOT 


; SEE WHICH MODE THE PROGRAM IS TO BE RUN IN. 


:MODES ARE: 


Ml: 


CLR 
TYPE 


MODE 
, MMODE 


‘FORMAT & VERIFY’ OR ‘CHECK FORMAT’ 


;SET MODE TO ‘CHECK FORMAT’ 
TYPE "PROGRAM MODE’ 


SEG 0027 


MD- Pie RMO1 FORMATTTER PROGRAM 


RMFOR 


002726 


003000 


003006 


003172 


003174 


MACY11 27(732) 
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;READ THE SM 
GET ADDRESS OF INP 
5 ACR’ an (DEFAULT) 


: FORMAT? ? 

;BR IF YES 

NO CORRECT ENTRY 
; TRY AGAIN 

; TYPE REST OF ‘CHECK’ 
GET STARTING ADDRESS 
TPE pre MESSAGE 


UP _MO 
TYPE REST OF FORMAT’ 
:SET MODE TO "FORMAT & VERIFY’ 


;FIND OUT IF FORMAT IS TO BE IN 30 OR 32 SECTOR MODE 


104411 RDOLIN 
012601 MOV (SP)+,R1 
105711 TSTB ss (R11) 
001414 BEQ 2$ 

122711 000103 CMPB es #'°C,, (R11) 
001406 BEQ 1$ 

122711 000106 CMPB sR’ F, CRI) 
001411 BEQ 3$ 

104401 OO1i66 TYPE $QUES 
000757 BR M1 

104401 O21622 13: TYPE MHECK 
000410 BR A 

104401 021601 2: TYPE MFORMT 
oo0402 BR 

104401 021635 33: TYPE MORMAT 
012737 177777 oOle20 4S: MOV -1, MODE 
104401 O21655 M1A: TYPE  ,MSIZE 
104411 RDLIN 
012601 MOV (SP)+,.R1 
122711 900131 CMPB eo Y, (R11) 
001410 BEG 1s 

122711 O00116 CMPB sa *N, (RL) 
001424 BEQ 2$ 

105711 TSTB —s-« (R21L) 
001403 BEQ 1$ 

104401 001166 TYPE SQUES 
000761 BR M1A 

104401 021726 1$: TYPE EC22 
012737 920100 001256 MOV #<258.#32.>,WC 
012737 157700 001260 MOV #-<258.*32.5, 
bie? 7? 177777 001264 MOV #-1,S5EC30 

12737 000037 OO01266 MOV #31! MAXSEC 
000415 BR Ml Be 

104401 o22005 25: TYPE C20 
012737 017074 001256 MOV pezese ¥30.>,WC 
012737 160704 001260 MOV #-<259.*30.5 ,M 
005037 001264 CLR SEC30 
012737 000035 oO0l266 MOV #29. . MAXSEC 
005037 001230 MIB: CLR BEGTRK 
005037 001224 CLR BEGCYL 
005037 001304 CLR 
012737 OO0004 o01226 MOV ~% F ENDTRK 
012737 000002 O01240 MOV #2. PATSEL 
112737 177777 001356 MOVE #-1,FMTDPB 
000400 BR MC 

:GO FIND OUT WHAT DRIVE 

012737 OO06S26 001300 mo: MOV #OENTER, CNTLC 
005037 OOllle CLR SERTTL 
004737 0O1065e JSR PC, $TKINT 
104401 021311 TYPE = ,MUNIT 


1O44i1 ROLIN 


;TYPE FORMAT MODE REQUEST 
!READ THE KEYBOARD 
ZADDRESS OF ENTRY 

s1s ENTRY AL'Y" ? 

:BR IF_IT IS 

21S ENTRY AN’ ? 

'BR IF IT IS 


YPEOUT MODE SELECT = 
$TYPE O SIZE IN 32¢ SECTOR MODE 
-2°S COMPLEMENT WORD COUNT 
138 8 SECTOR INDICATOR 
tt OR ADDRESS IN 32 SECTOR MODE 
i YPE OUT 30 SECTOR MODE SELECTED 
:TRACK SIZE IN 30 SECTOR MODE 
MC -2°S COMPLEMENT WORD COUNT 
SECTOR INDICATOR 
inax SECTOR ADDRESS IN 30 SECTOR MODE 
CLEAR STARTING TRACK ADDRESS 
fer EAR BEGINNING CYLINDER ADDRESS 
EAR WRAP AROUND FLAG 


5 

: SETUP 

:SETUP FOR WORST CASE PATTERN 
: SETUP INVALID DRIVE NUMBER 
:BRANCH TO STAR 


s CONTROL C ABORT ENTRANCE 
LEAR THE ERROR_ACCUMULATOR 
i INITIALIZE THE TTY KEYSOARD 

:ASK FOR DRIVE NUMBER 

“READ THE KEYBOARD 


RMFO 


R.Pil 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 
003220 012601 MOV (SP)+,R ;ADDRESS OF ENTRY 
003222 0604537 007074 JSR R5,CK: AHR ; CHECK ONE CHARACTER 
003226 003252 3$ - ILLEGAL CHARACTER 
003230 O0324e 2 ; CARRIAGE RETURN 
003232 003252 3 it 
3234 o03242 23 . 
093236 003260 4§ :DIGIT 0-7 
003240 003252 3$ DIGIT 8-9 
003242 o0S002 23: CLR Re ‘SELECT DRIVE ZERO 
003244 104401 921332 TYPE MDRVD :GO TYPE DEFAULT DRIVE NUMBER 
003250 000403 BR O SEE IF DRIVE ZERO IS THERE 
003252 104401 o01166 38: TYPE  , $QUES Ty YPE 
9032s o0 746 BR Mg 5 ASK F M DRIVE NUMBER AGAIN 
093260 010237 001214 4g: MOV Re, DRIVE :SAVE DRIVE NUMB 
003264 005702 TST Re ; SEE IF DRIVE 0 
003266 001004 BNE S$ -BR IF NOT 
003270 122737 900011 o0004! CMPBs#11,41 :PROGRAM LOADED FROM AN RMO1 ? 
003276 001431 BE 7$ :BR IF My WAS, CAN’T FORMAT THE ORIV 
003300 004737 006352 S$: JSR PC,ST.CLK “START THE CLOCK 
003304 004737 Ole73e JSR PC’ BMiNtt :GO SEE WHAT DRIVES ARE AVAILABLE 
003310 012737 177777 O12654 MOV 8-1, SAVEFG :SAVE THE REGISTERS 
003316 012737 177777 012656 MOY 8-1 *SEEKFG :SET 'NO OPTIMIZATION’ FLAG 
003324 005037 177776 CLR SET PRIORITY BACK TO ZERO 
993330 105762 O12566 TSTB DRVSTACR2) “LOOK AT DRIVE STA 
003334 003015 BGT 85 ; BRANCH IF ONLINE 
03336 001403 BE 6$ -BR IF DRIVE NOT AVAILABLE 
003340 104401 o21515 TYPE MUSDR :*DRIVE U 
003344 000713 BR :GO GET ORive NUMBER AGAIN 
00334 105762 o12e576 6S: TSTB = DRVTYP(R2) :A DRIVE PRESENT 
0033S2 001003 BNE 75 :BR IF SO 
003354 104401 021414 TYPE MDRNP TYPE ’DRIVE NOT PRESENT’ 
003360 000705 BR G0 GET DRIVE NUMBER AGAIN 
003362 104401 c21441 75: TYPE MER11 DRIVE NOT AVAILABLE’ 
003366 000702 BR ;GO GET DRIVE NUMBER AGAIN 
003370 123737 001214 001356 83: CMP8 DRIVE, FMTOPB ; SAME _D DRIVE AS LAST TIME ? 
003376 O01422 BEQ M2 
03400 113737 001214 901356 MOVB DRIVE, ENTDPB SETUP DRIVE ADDRESS 
003406 012737 9000632 001222 MOV #410. € ethos” 
003414 132762 O00003 012576 BITB s#BITod! SPF Or, ov (Fe) SEE tr DRIVE RMO1 
Boaiee Bisea? O1466 O0l1222 a be ENDCYL a , NG CYLINDER FOR RMOL 
% s 
034 Boso39 Maret 9s: CLR Sestak Eye el gi 6 bane ACK ADDRESS 
003436 005037 o91224 CLR BEGCYL ‘Cr EAR STARTING CYLINDER ADDRESS __ 
003442 op0400 BR Mo :GET ADDRESS LIMITS FROM THE SPERATOR 
;GET ADDRESS LIMITS 
093444 104401 021342 M2: TYPE ENTADR NTER_AD IMITS' 
003450 mathe O96704 JSR PC PARENT ie FR ROORESS L IMITS 
003454 005037 001304 CLR WRAP ‘CLEAR WRAP FLAG 
COZ4E0 023737 O0l222 oolce4 CMP ENOCYL,BEGCYL ;SEE IF ENDING CYLINDER EQ 70 GT THAN BEGINNING 
OO3466 001402 BEG 2s :BR IF ON THE SAME CYLINDER 
003470 103410 BLO 4$ 
003472 900413 BR M4 To ¢ NECK DRIVE : 
002474 023737 001226 001230 2s: CMP ENDTRK, BEGTRK CEE. IF ENDING TRACK EG OR ST THAN BEGINNING 
093502 103097 BHIS My :8R IF YES 


MD-11- ‘— RMO1 FORMATTTER PROGRAM MACY11_27(732) 
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i455 003504 104401 S22104 3$: TYPE MADRER ; INVALID ADDRESS ENTERED 
1456 003510 000755 R ! ; TRY N 

1457 003512 012737 177777 001304 4S: MOV #-1, WRAP ‘SET WRAP AROUND FLAG 

ize 002520 o00400 BR M4 

ate 

fart ;GO GET DATA PATTERN FOR FORMAT 

1462 003522 104401 Ozee0s M4: TYPE »MSELP ;GOQ TYPE ‘SELECT PATTERN’ 
1463 003526 104411 ROLIN READ THE KEYBOARD 

1464 003530 012601 MOV (SP)+,R1 ENTRY ADDRESS 

co 7 nce 

1467 Q03S4O0 003552 1$ ;CAR IAGE RETURN 

1468 003542 003572 3g wl 

1469 003544 003552 i Ppa 

1470 003546 003564 eg DIGIT 0-7 

1471 003550 003572 3$ :DIGIT 8-9 

i472 O035Se 104401 22353 1$: TYPE .MPATD ; TYPE_DEFAULT PATTERN 

1473 003556 Qle70e OC000e MOV #2,Re :WORST CASE PATTERN 

1474 003562 OO00406 BR 4$ ;GQ SAVE PATTERN 

1475 003564 Oe0ee7? 00002 2s: CMP RZ, 82 ;1S # LARGER THAN 2 

1476 003570 101403 BLOS 4 ; BRANCH, IF NOT 

1477 003572 104401 O01166 33: TYPE $QUES TYPE ° 

1478 003576 000751 BR 4 ;RETY PE. LINE 

ale 003609 010237 Oo0i240 4$: MOV Re, PATSEL ; SAVE PATTERN SELECTED 

tuBS ;GO TYPE ‘STARTING FORMAT ON DRIVE N’ 

1483 003604 012737 O06546 OOCOEO MS: MOV #NEWSYC, JR TKVEC ; VECTOR FOR CONTROL-O 

1484 O036le 005037 177776 CLR aePSW ;LEVEL O 

1485 003616 905737 001220 TST MODE : FORMAT’ OR *CHECK’ MODE ” 
1486 O036ee 001403 BEQ 1$ :BR IF *CHECK’ MOD 
1487 003624 104401 022366 TYPE MSFOU ;TYPE *STARTING FORMAT ON ORIVE N° 
1488 003630 O0040e BR 

1489 003632 104401 O2e423 1$: TYPE » MSCHK ; TYPE *STAR®ING CHECK ON DRIVE N° 
1490 003636 es: ad 

1491 003636 O13746 O0i214 MOV DRIVE, -<SP) ;;SAVE DRIVE FOR TYPEOUT 
1492 1: TYPE DRIVE NUMBER 

1493 003642 104403 TYPOS 1190 TYPE~-OCTAL ASCII 

1494 OO3644 001 st tR sot ;TYPE 1 DIGIT(S) 

1495 0364S 000 BYTE i SUPPRESS LEADING ZERO 

is OO3646 104401 001167 TYPE . SCRLF AR R-L 

ee ;SETUP TOTAL TRACK COUNT FOR FORMAT 

1500 003652 023737 OOle2e 001224 


CKADRS: CMP 
1501 peers 0010i1 BNE 


1502 003662 013737 001226 001232 MOV 
1503 003670 163737 001230 Oo1222 SUB 
1504 003676 005237 001232 INC 
1505 003702 oco44o BR 
i506 003704 005737 001304 ss: ‘TST 
150? 003710 001407 BEG 
1508 O03712 012702 oo14ee / Mov 
1£0$ 003716 163702 001204 SUB,» 
1E16 003722 063702 oole2e coke ADS 


= 


ENDCYL,BEGCYL 
S$ BRANCH IF Pee MT EQUAL TO ENDC 


ENDTRK,TTRKS. ;END_TRACK_ ADD 
BEGTRK, TTRKS ; SUBTRACT THE a ,Aarine TRACK ADORESS 
RKS ;MAKE THE NUMBER OF TRACKS INCLUSIVE 


sear ‘SETUP THE DATA PATTERN 
RAP s RRP AROUND FLAG SET ? 
sINITIAL COUNTER TO 922 
arecvt fo ‘FIRST PART OF CYL & 
ENDCYL: Re : SECOND PeRT OF CYL # 


;STARTING AND ENDING CYLINDERS THE as 


? 


-—- == ee 


GOs 
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AAs 
Seat oe 


w 
m 
«>? 


RMFOR.P GET VALUE FOR SOFTWARE SWITCH REGISTER 
ae ee yee 01222 1$ fay NOCYL, R2 sENDING CYLINDER 
151 BpSo3q 13288 Olee4 SUB ue Re : SUB NEF big STARTING CYLINDER 
fis posede yes3> QOOD0S 901232 4S: mBY INITIATE COUNTER 
1516 ff 759 163737 ay of BB 1S35 SUB a5 TTRK FTRKS iNT Tage oN ANE BARTING CYLINDER 
1517 003756 063737 001226 001232 ADD ENDTRK, TTRKS OF TRACK R. ENDING CYLINDER 
1518 003764 905237 001232 INC RKS INCLUSIVE ONE TRACK . 
1519 003770 005302 33: DEC Re : DECRENENT THE CYLINDER COUNT 
1520 003772 100404 BMI SETPAT R IF DON 
Bel 03774 062737 o00905 001232 ADD #5. , TTRKS AOD CYLINDER WORTH OF TRACKS 
ibe 04002 ite BR 3$ NTINUE 
tect :THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 
1526 004004 005037 001242 SETPAT: CLR PATA :CLEAR DATA PATTERN A 
1527 004910 005037 O01544 CLR PATB :CLEAR DATA PATTERN B 
15e8 004014 005737 ocle4o TST PATSEL ;SEE IF PATTERN OF ONES 
1529 004020 001420 BEQ 1$ R IF SO 
iS30 004022 012737 o40592 oO1242 MOV #040502, PATA IPATA = AB 
1232 Goose passe Sroka? BOLENE Roy —SDHDGHY,PATE —GPRTBGED, een OF ZEROS 
Js 
1533 004044 OO1506 BEQ 18’ :BRANCH IF SO 
1534 OO4046 012737 165555 o0124e MOV #165555, PATA ;SET UP WORST CASE 
1535 OO40S4 012737 133333 O01244 MOV #133333.PATB :SET UP WORST CASE 
1536 004062 013703 601256 1$: MOV WC, R3 :SET UP COUNTER 
1537 OO4066 012700 025732 MOV #BUFP, RO :SET UP MEMORY POINTER 
1538 904072 013746 OO0l24e MOV PATA, -(SP) :SAVE PATT 
1539 004076 0137468 001244 MOV PATB. -(SP) : SAVE PATTERN § 
1540 004192 032737 OO00001 oo1c24 BIT #81 T00, BEGCYL iA EVEN CYL & ? 
feus poate Spe 157 1242 aie oar OMPLEMENT PATTERN 
1245 8 411 Ape} 35 BB tS45 BM PATB INO, COMPLE PATTERN 
1544 004122 013701 OoClo4e 3: MOV PATA,R1 :SET UP PATTERN IN R1 
1545 004126 013702 o01244 MOV PATB Re :SET UP PATTERN IN 82 
1546 OO4132 010120 2g: MOV R1, (RO)+ :MOV 1ST PAT INTO MEM 
1547 004134 010220 MOV Re. (RO)+ -MOV 2ND PAT INTO MEM 
Tey BONLGB poesas BEE COW sKEER COUNT 
1550 o04i42 aber BNE 2s ite IT AGAIN IF R3 NOT 9 
1551 OO4144 012637 oo12e44 MOV (SP)+,PATB RESTORE PATTERN : 
1556 004150 012637 OOle4e MOV (5P)+' Pata ?RESTORE PATTERN A 
1554 ;THIS CODE SETS UP FOR THE ACTUAL FORMAT 
— 
1556 004154 004737 oOOse4O WRTRK: JSR PC, SETTBL :G0 SET UP DRIVER TABLE = ae 
1557 004160 904737 ODbl22 JSR oe R ;50 INITIALIZE HEADERS IN THE SECTOR BUSTER IN CORE 
1558 OO4164 112737 O00020 001357 MOVE = 20 Ent DPB+1 “LOAD FMT22 BIT 
1559 094172 005737 001264 TST SEC EC40 18 ae ° 
tee Bbq 0 Husuerd 001357 CLR be MTDPB+1 :CLEAR THE FMT22 BIT 
1562 904204 112737 O00142 o01360 13: MOY BSETFMT,FMTDPB+2  ;°LOAD FORMAT’ COMMAND 
1563 O04212 004037 013436 2s: ISR RO, RMOL :START THE COMMAND 
1564 04216 001356 FMTOPB :DPB ADDRESS 
1565 004220 000774 Br 23 ;GUEUE FULL RETURN 


iS&& CO4e22 005737 001374 33: TST FMTDOPB+1E ;LOOK FOR DONE 
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RMF GET VALUE FOR SOFTWARE SWITCH REGISTER 


1567 004226 001775 BEQ 3$ :LOOP UNTIL FINISHED 
1568 004230 095037 o01216 WRTRK1: CLR SOF SW -CLEAR ERROR COUNTER 

1583 ops 34 005037 901250 SLR RETRY :ZERO THE RETRY COUNTER 

is 4549 105037 001366 SLRB = FMTDPB+10 ‘RESTORE SECTOR 

i571 004244 013737 001260 901362 MOV MWC, FMTOPB+4 =: RESTORE WC 

1572 O042Se 912737 025732 001364 MOV BBUEP, FMTDPB+6 ;REST ORE BA 

1573 024260 005737 001220 TST "FORMAT’ OR 'CHECK’ MODE ” 

1574 o04264 901450 BEQ cK "BR IF 'CHECK’ MODE 

1575 OO4266 112737 OO0Ci63 001360 WRTRK2: MOVB wr FMTDPB+2 °:SET WRITE HEADER & DATA COMMGND IN TSL 
1576 004274 012737 004274 9001119 MOV SLPERR ;SETUP LOOP ON ERROR ADDRESS 

1577 004302 01°706 001100 MOV astack SP s LOAD STACK POINTER 

1578 004306 004037 013436 1S: JSR RO, RMOL FORMA C 

1579 004312 001356 FMTDPB * ADRS OF PARBRETERS. - Tal 

1580 004314 000774 BR 1$ :WAIT FOR QUEUE IF 

1581 004316 005737 001374 2s: TST FMTDPB+16 :WAIT FOR COMMAND 1p UEEMPLETE 

1582 004322 9001775 BEO 2$ “BRANCH IF NOT DONE 

1583 004324 100024 BPL 4 “BRANCH IF NO ERROR 

1584 004326 012737 of4354 oOf1169 MOV #3 SESCAPE ; AESCAPE TO 3$ ON ERROR 

1585 004334 004737 cds47e ISR PC, ERINCX : SEE WH cH ERROR 

1586 oO4340 104010 ERROR 10° :DRIVE OFFLINE 

1587 oo4342e 104011 ERROR 11 ‘PERSISTENT DRIVE UNSAFE ERROR 

i588 o04344 104012 ERROR le ;UNCORRECTABLE MASSBUS PARITY ERROR 
1589 OO4346 194013 ERROR 13 SOFTWARE TIMEOUT 

1590 004350 104014 ERROR 14 ‘DRIVE UNSAFE ERROR 

i591 004352 104015 ERROR 15 DRIVE CONTROLLER ERROR DURING WRITE 
1592 004254 004737 oDSS72 38: JSR PC,LOP. cK “LOOP ON THE ERROR 

1593 004360 022737 O00003 oo1250 CMP #3; RETRY ‘ERROR RETRY LIMIT ? 

1594 004366 001403 BES 45" °BR IF REACHED 

1595 004370 005237 001250 INC RETRY :COUNT THE ERROR 

1596 004374 o00744 BR 1 :TRY AGAIN 

1597 004376 905037 9001169 4$: CLR SESCAPE :CLEAR ERROR ESCAPE ADDRESS 

1598 g04402 905037 001250 CLR RETRY :CLEAR THE RETRY COUNTER 

1690 ;CHECK THE TRACK JUST WRITTEN 

1602 OO4406 112737 000153 001360 CKTRK: MOVS sHCkHD FMTOP8+2 ;SET WRITE CHECK HEADER & DATA COMMAND IN TSL 
1603 OO4414 012737 OO44]14 9801110 MOV $LPERR :SETUP LOOP ON ERROR ADDRESS 

1604 CO4422 O12706 001100 MOV BStack ep sLORD STACK POINTER 

1605 004426 004037 013436 1g: JSR RO, RMOL :GO CHECK THE TRACK JUST FORMATTEC 
1606 OO4432 001356 FMTDPB :ADRS OF PARAMETERS - TBL 

1607 004434 000774 BR 1$ sWAIT FOR QUEUE IF FULL 

1608 004436 005737 001374 23: TST FMTDPB+16 :WAIT FOR COMMAND TO KOMPLETE 

1699 oo4442 001775 BEQ 25 *BRANCH IF NOT DONE 

1610 OO4444 100112 BPL 8g “BRANCH IF NO ERROR 

1611 OO4446 113737 001314 oOO1es2 MOVB RM. REG+RMDA, SAVSEC -GET THE SECTOR ADDRESS 

igi2 OO44S4 O01005 BNE ACH IF NOT SECTOR O 

1613 OO4456 013737 001266 001252 MOV MAXSEC,SAVSEC RESTORE TO LAST SECTOR +1 

1614 OO4464 005237 O01252 INC SAVSEC : INCREMENT TO LAST SECTOR +1 

1615 004470 005337 O01252 23: DEC SAVSEC :ADJUST SECTOR TO THE ONE THAT FAILED 
1616 OO4474 012737 O94740 oO11E0 MOV #10$,$ESCAPE ; ESCAPE To 10$ ON ERROR 

1617 904S02 004737 005472 JSR PC, ERINDX SEE WHI H ERROR 

1618 004506 104010 ERROR DR IVE OFFLINE 

1619 004510 104011 ERROR 11 PERSISTENT DRIVE UNSAFE ERROR 

1620 004512 1040le ERROR le : UNCORRECTABLE MASSBUS PARITY ERROR 
lé2i OO4S14 104013 ERROR 13 “SOFTWARE TIMEOUT 

téz2 OONEIS 1O40i5 ERROR 14 ‘DRIVE UNSAFE ERROR 
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1623 004520 032737 O40000 001316 BIT BUCE,RM.REG+RMCS2__;WRITE_CHECK ERROR ? 
1624 004526 001005 BNE “i F SET 

1625 004530 033727 001322 BIT RM. REG+RMERI , (PC}+ jCHECK FOR DATA ERRORS 

1626 004534 130620 -WORD DCK!OPI!DTE!HCRC!HCE!FER ;DATA ERROR BITS 

i$27 004536 001001 BNE ag ;BR IF SET’ 

1628 04540 104016 ERROR 16 : CONTROLLER/DRIVE ERROR 2 DURING WRITE CHECK 

1629 oo4S42 005737 001220 4§: TST MODE ;FORMAT OR CHECK MODE ? 

1630 004546 901407 BEQ ot CHECK 

1631 04550 005737 O01216 TST SOF SW tRETRYING THE SECTOR ? 

1632 OO4554 9001404 BEQ SS ;BR_IF NOT 

1633 004556 012737 OO4762 001160 MOV #11$,SESCAPE  ;;ESCAPE TO 11 ON ERROR 

1634 OO4S64 104017 ERROR 17 SECTOR NOT ACCEPTABLE 

1635 004566 005037 001160 S$: CLR SESCAPE CLEAR THE ERROR ESCAPE ADDRESS 

1636 004572 032737 O40090 2091220 BIT HERR, RM. REG+RMDS | ;DATA ERROR ? . 
1837 004609 O01002 BNE sf R IF IT 

1638 OO4602 104024 ERROR 24 ;WRITE CHECK ERROR 

1639 004604 O00401 BR 75 : CONTINUE 

i640 OO4606 104020 b$: ERROR 20 :DATA ERROR DURING WRITE CHECK 

164i O04610 013701 oc1es2 75: MOV SAVSEC, Rl ‘FAILING SECTOR ADDRESS 

1642 O04614 113737 001252 001366 MOVB  SAVSEC;FMTDPB+10’ :SECTOR DDRESS 

1643 O04622 006301 ASL RI SETUP INDEX 15 ROORESS 

levi Oo¥b24 016137 901500 001364 NOV RORTBL (RI), , FMTDPB+6 7 ABUEFER ADD AOD E85 FOR FAILING G SEC TOR 

(eae Bowes. Geeiie Boteeo ABB OWICTALCRI3, (SP) ABD Hono. Count gout PILING sector 

1647 OO4642 012637 001254 MOV (SP) +, SAVLIC ;STOR COUNT F Fo R REMAINDER OF TRACK 

1648 OO4646 005737 OOle20 TST MODE : FORM ar OR 

1649 OO46S2 001421 BEG 9$ :BR_IF CHECK 

1650 OO46S4 012737 177376 001362 MOV #-258. , FMTDPB+4 ; WORD COUNT FOR 1 SECTOR a 

1651 004662 005237 001216 INC SOFSW NDICATE THAT A RETRY IS IN PROGRESS 

1652 OC4666 000137 o04265 IMP WRTRK2 REFORMAT ERROR SECTOR 

1653 004672 005737 001216 QS: TST SOFSW :RETRY IN PROGRESS ? 

1654 094676 001431 BEQ 11$ NO ” 
1655 004700 022737 ooDOD2 ocDl216 CMP #2, SOFSW iSEE IF LAST RETRY sin ae 
lee? OONPIG OOSe3? ooLeIE TNC SOFSW. feteen RETRY COUNT ag 
4557 o . . 7 
i658 004714 O00644 Es 1$ AD AGAIN ; 
1659 OO4716 123737 O01266 01366 9: CMPB  MAXSEC /FMTDPB+10° ;SEE IF LAST SECTOR ON THE TRACK 

1660 004724 001416 BEG ;BR_IF IT IS . 

1661 004726 004737 006074 JSR PC, SCAWC SETUP TO CHECK REMAINING SECTORS ON THE TRACK . 

1662 004732 005037 OOlele CLR SOF SW :CLEAR RETRY TER att 

1663 004736 000633 ES 1$ : FINISH GHECKING THE TRACK 

1664 004740 004737 005572 10$: JSR PC,LOP. CK ;CHECK FOR LOOP ON . 
1665 004744 022737 000003 001250 CMP #3; RETRY !ERROR RETRY REACHED ? aa 
1666 004752 001403 BEQ 11$ ;BR IF IT IS ate 
1667 004754 005237 001250 INC RETRY : COUNT THE RETRY 

i668 004760 000622 GR 1$ :D0_THE WRITE CHECK AGAT 

1669 (004762 005037 001160 118: CLR SESCAPE :CLEAR THE ERROR RETURN ESCAPE ADORESS 

1670 OO4766 005037 9001250 CLR RETRY :CLEAR THE RETRY COUNTER 

1671 004772 032777 O00902 174140 BIT #81T1,aSWR :LOOP ON CURRENT TRACK ? . 

1672 905000 O01402 BEG 12$ F NOT 

1673 905002 000137 o04230 IMP WRTRK1 ‘START AGAIN ON THE SAME TRACK 

1674 COSODE 004737 905730 123: JSR PC, TRKTST :GET UPDATED TRACK AND CYLINDER ADDRESSES 

1675 005012 pode BR HDREAD RETURN HERE IF DONE - DO QUICK CHECK OF DISK 

TE7 08519 900137 ooweap IMP WRTRK1 : CONTINUE WITH THE FORMAT 


78 THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE 
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1679 -PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING FOR 
1bg¢ :POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 
1682 905920 995037 001262 HDREAD: CLR HEDERR : CLEAR HEADER CHECK ERROR INDICATOR 
le81 DDe030 OON?37 ObEIz2 JeR OC SETHOR fp 
S 
1685 Bee 34 013737 ppp Ass 001246 MOV Beer CYLCK : USE “Feet FOR “FORMAT VERIFICATION 
1686 005042 012737 177776 001362 MOV MIDPB+4 =: SET COUN 
1687 005050 012737 Oe5722 001364 MOV ret FMTDPB+6 4: SET tp BOF Peg ADR RS 
1688 005056 005037 001366 CLR FMTDPB+10 ‘CLEAR THE SECTOR & TRACK ADDRESS FIELD 
1689 005062 013737 001224 001370 MOV BEGCYL FMTDPB+12 ;SETUP THE CYLINDER FIELD 
1690 005070 112737 000173 001360 MOVB eROHO ,ENTOPB+2 SET UP READ HEADER & DATA COMMAND 
131 O0S0%6 Ole?s7 OoSG7e C0110 MOY t SLPERR aoe hee foc eee 
teas Bbelfo BAgz95 BPAASE is: FSR ABT io Reo GE abe 
1e9s OOE116 BOOT BR ag iat? SF QUEUE 1S FULL 
(¢ ‘ 
1696 00512 S737 901274 23: eat FMTDPB+16 Het fee COnrAND 0 KOMPLETE 
1697 005124 001775 BEQ 2 ‘BRANCH IF NOT 
1698 005126 100004 BPL 43 -BR IF NOT ER ROR. 
1699 005130 012737 o0S212 o01160 MOV #53, SESCAPE : ESCAPE TO S$ ON ERROR 
170@ 005136 004737 905472 JSR PC, ERINDX : SEE yHhTCH L RROR 
1701 005142 194010 ERROR 
1702 005144 10401] RROR ! (ee rt NRT UNSAFE ERROR 
1703 005146 104012 RROR $UNC E TABLE MASSBUS PARITY ERROR 
1704 OO5iSO 104013 ERROR OUT 
1795 005152 104014 ERROR ti BOF ve AiKcApeS Pe ROR : 
17068 005154 032737 177577 001374 BIT BIC<HCED, FITOPB+16 iis ONLY ERROR A HEADER COMPARE ERROR 7? 
1707 005162 o01401 BEQ 3$ 
1708 005164 104021 ERROR 21 SOvtwot LER /pRrve ERROR VERIFYING HEADERS 
1799 005166 905037 oo1160 33: CLR SEscapE : CLEAR ERROR ESCAPE ADDRESS 
1710 005172 104022 ERROR 22 ‘HEADER COMPARE ERROR VERIFYING HEADERS 
1711 005174 004737 905572 ISR PC, LOP. CK “CHECK FOR LOOP ON ERROR 
1712 005200 023737 Oe5722 025732 4s: CMP RBC BUFP :SEE IF CYL READ EQUALS CYL EXPECTED 
1713 005206 9001403 BEQ ‘BR IF CYL CORRECT 
1714 005210 104023 ERROR 23 :CYLINDER NOT CORRECT 
1715 O0S2le 004737 o0s572 S$: JSR OP. oK !CHECK FOR LOOP ON ERROR 
1716 005216 023727 O01222 oo1246 6&8: CMP ENOGYL: CYLCK :SEE IF LAST CYLINDER 
1717 005224 90100 BNE ? ;BR IF NOT FINISHED 
1718 905226 000137 005326 IMP SEOP ‘END OF P 
1719 005232 005237 o01246 7$: INC CYLCK : INCREMENT CYLINDER ADDRESS BEING CHECKED 
1720 o05236 bee? ? OO1467 ooLl4E CMP #823. , CYLCK sLAST CYLINDER 
1755 noeoug pega? 001246 ae ey CK YES LAST CYLINDER 
UL? 
1723 O05eS52 005037 901370 ¢LR EN TbpB+12 YES ay fn BER E To O. 
1724 005256 005037 001366 CLR FMTDPB+10 :RESET TRACK BND” SECTOR 
1725 62 005037 001374 CLR FMTOPB+16 “RESET CYLINDER # 
1726 O0S266 013746 001224 MOV BEGCYL,-(SP) ;SAVE BEGCYL 
1727 005272 013746 O01230 MOV BEGTRK: -(SP) ;SAVE BEGTRK 
1728 005276 005037 001230 CLR BEGTRK 
1729 905302 005037 001224 CLR BEGCYL 
1730 005306 004737 O0bie2 JSR PC. SETHOR ;SET_UP BUFFER 
1721 005312 012637 601230 MOY (SP)+,BEGTRK § :RESTORE BEGTRK 
1732 005316 012637 001224 MOV (SP)+'BEGCYL § ;RESTORE BEGCYL 
1722 O0&222 o0072 R 


B 1 
1734 COS324 904737 006176 BS: JSR PC, UPDACY ;SET UP FOR NEXT CYL 


? 
? 
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1735 905330 005237 001370 INC —- FMTDPB+12 ADVANCE TO NEXT CYL 
173 SOSSs4 COOGEE BR 1$ G0 READ NEXT HEADER 
1738 .SBTTL END OF PASS ROUTINE 
aé a 
174¢ 5p RRRRARA ERE R ALAA EERE ERA LAA EER RRA ALLA L ALE RRA RLALLLARAERELELSLEE 
1741 ; XINCREMENT THE PASS NUMBER ($PASS) 
1742 isIE THERES. MONITOR GO TO IT 
1243 F THERE ISN’T JUMP TO DON 
tae 
1745 005336 SEOP: 
1745 005336 005737 001220 TST MODE ;'FORMAT’ OR 'CHECK’ MODE ” 
1747 005342 001403 BEG 38 ;BR IF 'CH HECK’ 
1748 005344 104401 022457 TYPE =, MFCMPT ; PFORMAT ETE’ 
1749 905350 900402 BR 4 sE ANISH estes 
i750 005352 104401 ce2s04 38: YPE —_, MCCMPT :*CHECK COM 
1751 005356 104401 922530 4s: TYPE § ,NUMERR :? TOTAL ERRORS DETECTED: |’ 
1752 005362 01374 O0i1le Mov SERTTL,-(SP) 558 chi SERTT FOR T 
1753 005366 104405 TYPDS $480 TYPE--DECIMAL ASETY WITH SIGN 
1754 005370 104401 001167 TYPE  ,SCRLF 
1755 005374 005237 001100 INC  $PASS eel THE PASS NUMBER 
1756 005400 042737 100000 ooi100 BIC #100000, $PASS LLOW A NEG. NUMBER 
1757 OOS4¥O& 005327 DEC (PC)+ + 
1758 005410 00000) - SEOPCT: .WORD 
1759 005412 003013 BGT  $DOAGN 3: YES 
1760 005414 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
1761 005416 00001 SENDCT: .WORD 1 
1762 005420 o05410 SEOPCT 
1763 O0S¥22 013700 ocoo42 SGET¥2: MOV  g842,R0 ;3GET MONITOR ADDRESS 
1754 005426 001405 BEQ  — SDOAGN ;;BRANCH_IF NO MONITOR 
1765 005430 900005 RESET CLEAR THE WORLD 
1766 005432 004710 SENDAD: JSR —- PC, (RO) ;;G0 TO MONITOR 
1757 905434 000249 NOP :;SAVE ROOM 
1768 005436 O00240 NOP 3 
1769 OOS440 o00240 NOP :;ACTLL 
1770 o05442 SDOAGN: 
1771 005442 000137 IMP (PC) + ; RETURN 
1772 OOSH44 OOS446 $RTNAD: .WORD DONE 
1773 005446 032777 O00001 173464 DONE: BIT #SWO, ISWR ;SEE IF SWR O SET 
1774 005454 001002 BNE 1§ 
1776 BOSSE 000137 003174 IMP MO 'ASK FOR NEXT DRIVE 
1776 O05¥62 Ole706 001100 13: MOV #STACK, SP SRESET STACK POINTER 
1777 OOSHGE 000137 003604 IMP MS :D0 THE FORMAT OR CHECK AGAIN 
1778 : 5 ERKRRLA ALAA LA REAR AAA ARASH ERA EEL ELA RAL RE REAR ELE RRA LES LER TERAR ELE? 
1781 .SBTTL SUPPORT SUBROUTINES 
17a 5p RRRRRRRLA ERR EERE ERLE E AA LRA LER EAE RE LER ER ARAL LE RA RARER ELAR EARLE 
178s ;THIS ROUTINE DETERMINES THE ERROR TYPE 
1787 OOSY72 010146 ERINDX: MOV —- R11, (SP) TORE Ri 
1782 005474 905001 CLR RI LEAR Rl 
1789 005476 033727 001374 BIT ‘FMTDPB+16,(PC)+ ';CHECK ERROR 


TYPE 
1786 OOSOS deocde ltRD OBITIVEBITISIBITOIBITI SORTVE. OFFLINE 
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1791 005504 001025 BNE S$ BR IF OF FELIN 

1792 005506 933727 001374 BIT FMTDPB+16, (PC)+ CH ECK ERROR TYPE 

1793 o0055i2 010000 .WORD BITle ;DR IVE PERSISTENTLY UNSAFE 

1794 005514 001020 BNE 4§ UNSAFE 

i795 005516 033727 001374 BIT FMTDPB+16, (PC)+ ;CH Eck ERR YPE 

1796 005522 906000 -WORD BITI1!BITIO HINCORRE TABLE MASSBUS PARITY ERROR ” 
1797 005524 001013 BNE 3$ :BR IF PARITY ERROR 

1798 005526 033727 0901374 BIT FMTDPB+16, (PC)+ :CHECK ERROR T ORE 

1799 005532 001400 “WORD  BITOS!BITOS ; SOF TWARE TIMEOUT ? 

1800 005534 001006 BNE 2$ YES 

1801 005536 033727 001374 IT FMTDPB+16, (PC)+ : SCHECK ERROR TYPE 

1802 o0S542 900020 _,WORD BITO4 :DRIVE UNSAFE ERROR ? 

ies fae So ae RcRoesT ng serum sex 
1805 550 005201 1$ INC Ri HINGRER ENT THE RETURN INDEX 
1806 O055S52 O05e01 2g INC Rl REMENT THE RETURN INDEX 
1807 005201 33 INC R} t INCREMENT THE RETURN INDEX 
1908 005556 005e01 4g INC Ri INCREMENT THE RETURN INDEX 
18093 60 006301 S$: ASL RI ‘DOUBLE THE INCREMENT 

1810 =". O60166 000092 ADD R1,2(SP) : DEVELOP THe RETURN ADDRESS 
1811 OL. 5 012601 MOV (SP)+ Ri “RESTORE R 

1812 905570 000207 RTS PC : RETURN 

1814 . sROUTINE TO CHECK FOR LOOP ON ERROR 

1816 005572 032777 001000 173340 LOP.CK: BIT #SWO9, aSWR sLOOP_ON ERROR ? 

1817 OOS600 o01402 BEQ 1$ NOT 

1818 905602 000177 173302 IMP J$LPERR ‘G0 TO THE LOOP ON ERROR ADDRESS 
1819 005606 0605037 Oo1i60 1S: CLR SESCAPE ;CLEAR THE ERROR ESCAPE ADDRESS 
1820 005612 033727 001374 BIT FMTDPB+16, ( “CHECK FOR 'FATAL’ ERROR 

1821 905616 penne . WORD T14! ai tisrertiel ITIO'BITOL ;*FATAL’ ERROR BITS 
1822 00562 1004 BNE -B 

1823 O0S622 032737 OO4000 901322 BIT #WLE, RM. REG+RMER| ;WRITE LOCK ERROR ? 

1824 005630 001402 BE 3$ BR IF NO 

1825 005632 000137 005236 2s: IMP SEOP ; TERMINATE THE FORMAT 

gee 005636 000207 3g: RTS PC : RETURN 

1868 ; THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 
1830 O0S640 113737 001214 O01356 SETTBL: MOVB DRIVE FMTDPB = ; SET-UP DRIVE # 

ee eee RIE) oe a etiam ee mS Pr 
1636 BBEEES 012737 p82580 01364 MOV ta FMTDPB+6 it BAB uP WOR RENT a ADRS 

1834 005666 105037 001366 CLRB -« FMTDPB+10 ;SET SECTOR TO ZERO 
1835 005672 113737 001230 001367 MOVB § BEGTRK,FMTDPB+11° ;SET UP STARTING TRK ADRS 
1826 005700 013737 001224 001370 MOV BEGCYL{FMTDPB+l2 :SET UP STARTING CYL 

1837 005706 905037 001374 CLR FMTDPB+16 ;CLEAR RMO1 STATUS 

1838 O05712 013737 001230 001236 MOV BEGTRK TRKCNT :SET UP PARTIAL CYL_TRACK_ COUNT 
1839 005720 013737 OOle32 OOle24 MOV TTRKS, TTRKS ;SET UP TOTAL TRACKS COUNTER 
1g 005726 900207 RTS PC RETURN FROM SETUP 

1842 ; THIS ROUTINE CONTROLS THE DISK acura AND TOTAL TRK COUNT 
1843 IT 1S ENTERED AFTER EVERY TRK OPERATION 

1845 005730 005327 001224 TRKTST: DEC TTRKSC ;SEE IF LAST TRACK 


1846 COS734 O014S6 BEG 3$ ;BRANCH IF LAST TRACK 
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#4. , TRKCNT 
KCNT 


fra at 
, UPDATK 


POs 


S93» FMTDPB+12 


BEGCYL,-(SP) 
BEGTRK, »~ (SP) 


(SP)+, BEGTRK 
(SP)+, BEGCYL 


PC, UPDACY 
#2, (SP) 


315 THIS THE LAST TRACK IN THE CYLINDER 7 


; BRANCH 
tBOUNT UP TRACK ye CYLINDER 
TNC REMENT TRACK 


eb ATE TRACK RODRESS IN BUFFER 


‘CLEAR TRACK COUNT FOR NEXT CYLINDER 
;RESET TRACK ADDRESS TO 0 

;UPDATE CYLINDER NUMBER 

;LAST CYLINDER ? 


 SEVE era 


‘ear Tie "Praating cy CYL 


; INITIATE HEAD WOR DS. 
; CLEAR ran AND Pines 
ae 


RESTORE BEGCYL 


;UPDATE CYLINDER NUMBER IN BUFFER 
ADO THO TO RETURN ADRS 


;THIS ROUTINE SETS UP_WC & BA FOR REMAINING SECTORS 
AFTER A WRITE CHECK ERROR 


SCAWC: 


SAVWC , FMTDPB+4 
ooi5., ,FNTOPB+6 


meen 


t 


;SET UP WC FOR REMAINING SECTORS 
;SET UP_BA FOR eae Se TORS 
;ADVANCE TO NEXT SECTOR IN TBL 
;RESET RETRY COUNT 

: RETURN TO COMPLETE TRK FORMAT 


;THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK {INFORMATION 


SETHDR: vad 


1$: 


MAXSEC, R1 


OV #BUFP, RO 
MOY BEGCYL, Re 
MOV BEGTRK,R3 
swAaB.OtC*«érR 
TST SEC30 
BEQ 1$ 
BIS #10000, Re: 
MOV Re, (ROS+ 
MOV R3. (RO)+ 
ADD #512. ,R 
INC R3 
DEC R1 
BGE 1S 
RTS PC 


;SET UP SECTOR COUNT 
:SET UP eR POINTER IN RO 
:PUT STARTING CYL # IN Re 


RACK ADR 
iSEE IF 30 OR 32 ae MODE 
;BR TF eo set OR 


SEC RMAT BIT 
WRITE IN HEADER AREA OF CORE THE CYL ADRS 
TE_IN FOR Rex! AREA OF CORE THE TRK ADRS 


sR UP F 
; R ADRS FOR — HEADER 
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1903 

1904 006176 013701 001266 UPDACY: MOV MAXSEC,R1 SET UP SECTOR COUNT 

1905 006202 012700 025732 MOV #BUFP.RO :SET UP HEADER POINTER IN RO 
1906 O0b208 010246 MOV Re, -( SP) ‘SAVE Re 

ae gee Gun, ES my Bates) aa aT 

1ape ppes i Bheo38 1S: INC (RO)+ : ACREMENT Fo FOR NEXT CYLINDER 
1910 006222 b42720 177400 BIC #177400 (RO)+ ;RESET_TRK ADRS T0 0 

at pRPESS pte E95 ppt 44 * MOV aby oie iat pat teRn : 

1913 006236 016637 O0000e o01242 MOV {345 Pe :SET PATTERN 

1914 006244 032760 OO0001 177774 BIT ssrToo, aT CRO) , ;EVEN CYLINDER & 

1915 006252 001404 - BEG 2g : YES, USE ta ae ATTERN 
1916 006254 005137 oole4e COM PATA ODD’CYLINDER #,USE COMPLEMENT 
1917 O06260 005137 O01e44 7 CON - Pa AB. pe pve 

tat8 BaeS5d BbssB BRLSdq + BY Pay a ttt BUFFER 

1920 006274 162702 000004 . SUB #4,R2 ‘END OF DATA FIELD ? 

1380 bbe ste bpesot . ita cP iG vt SECTORS 

1 4 GE 1$ : BRANCH im NOT LAST SECTOR 
1924 006306 012637 go1244 MOV (SP) )4, PATE ile pare ; 

tase Bpeate BtSeas Mey iis BB ee RE OTE Re 

1987 006320 000207 RTS 

1989 ;THIS ROUTINE UPDATES THE TRACK nd OF THE HEADER WORDS IN CORE 
1931 006322 013701 001266 UPDATK: MOV  maxsec RI ;SET UP SECTOR COUNT 

1932 006326 012700 025732 MOV BUF, R :SET UP HEADER POINTER_IN RO 
1933 O06332 005720 TST > (RO)+ : POINT HEADER POINTER TO TRK - SEC ADRS 
1934 334 062710 ooo400 ig: ADD » * #400, (RO) : INDEX ADRS 

1935 0 B40 062700 001004 | a0 wS16., ,RO Saunt see TEOR hex HEADER 

193 ats WERE | GE it RANCH SEE TRG aR? LAST SECTOR 
1938 006350 000207 RTS PC EXIT 

1940 } ROUTINE TO CHACK FOR KWL1-L OR KWL1-P CLOCKS 

1942 006352 012737 OO6430 OO0004 ST.CLK: MOV #STCLKL OWERRVEC SET UP VECTOR FOR P CLK 
1943 006360 005037 O00006 CLR ’- vette NEW PSW 

1944 006364 005777 172606 TST oer kcs ICHECK FOR KW11-P 

1945 006370 013746 OOle0e MOV arPvEC -(SP)  :VECTOR ADDRESS 

1946 006374 012776 006514 oD0000 MOV BcLOCK, a(SP) © ;SET UP KW11-P VECTOR ? 
1947 O06402 O6e716 O0000e ADD (SP} sPOIN NT TO PSwW 

1948 OO6406 012736 000300 MOV ibks a(SP)+ ‘PS - PRI 6 

1949 006412 012777 177777 172560 MOV #-1, a$LKCSB ;LOAD “COUNTER BUFFER 

1980 DOBY20 012777 000135 172550 NOV Bas 35 KCSR  :SET CLK - CNT UP 

tae pee dss BPO see ooc004 STCLK1: BRO ;RESTORE THE STACK POINTER © 
1983 06434 012737 06500 ooo004 HOV steve, DRERRVEC apie HANGE ERROR VECTOR 
tged BB nth ee harain BY tYEc, -(SP) RWI I=L rok Ku KODRESS 

1956 COB4S2 012776 O06514 cOo000 MOV CLOCK, "acSP) ss UP KW1l-L VECTOR 

1957 OOE460 06716 poco ADD NCREMENT vECTOR ADDRESS 
1956 OOG464 012736 60030 MOY soaG> a(SP)+ 


14 
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RMFOR.P SUPPORT SUBROUTINES 
i859 006470 012777 000100 172510 MOV #100, J$LKS ;SET KW11-L INTERRUPT ENABLE 
1960 006476 000402 _ BR STCLK3 
1961 006500 062706 000004 LK2: ADD #4, SP RESTORE THE STACK POINTER 
1962 006504 012737 OO0006 000004 STCLK3: MOV #6, JHERRVEC RESTORE THE ERROR VECTOR 
i363 006512 900207 RTS PC 
1965 ;THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 
1967 006514 012746 oOc0020 CLOCK: MOV #16. ,-(SP) ;PUT MILLISECONDS ON THE STACK 
1968 006520 004737 917124 JSR PC, RPTMR ;G0 
1369 006524 o0000e RTI RETURN AND CONTINUE 
1971 ;ROUTINE TO INTERCEPT "CONTROL C’ TYPED DURING PARAMETER ENTRY TIME 
1973 006526 012706 001100 OENTER: MOV STACK, SP ; INITIALIZE_THE STACK 
1974 006532 005737 012626 18: TST TRNSWT ALL ACTIVITY STOPPED ? 
1975 006536 001375 BNE 1$ :BR IF NOT 
1976 006540 900005 RESET :CLEAR THE BUS 
1972 006542 000137 003134 INP M1B START AGAIN WITH DRIVE SELECTION 
1979 ;ROUTINE TO TYPE THE PRESENT DISK ADDRESS. ENTERED BY TYPING ’CONTROL C° 
1981 QO6S46 117746 172374 NEWSVC: MOVB — @STKB,-(SP) ;READ_FROM TTY BUFFER 
1982 006552 042716 177600 BIC #tC177, (SP) sSTRyE PARITY 
1983 006556 O22627 000017 CMP (SP)+, #15 NTROL-O ? 
1984 006562 001406 BEQ : YES 
1985 006564 005777 172356 TST aSTKB :CLEAR DONE BIT 
1986 006570 012777 OO00100 172346 MOV #100, STKS ENABLE TTY INTERRUPT 
1987 006576 O0000e2 RTI 
1988 006600 004737 010652 1$: JSR PC, STKINT ; INITIAL VECTOR 
1989 006604 005037 177776 TYPADR: CLR PSU ;SET PROCESSOR TO PRIORITY 0 
1990 O06616 012737 006526 001300 MOV WOENTER,CNTLC ;CHANGE "CONTROL C’ RETURN ADDRESS 
1991 OO6616 104401 022560 TYPE _,ADDRIS ; "PRESENT ADDRESS IS: 
1992 006622 104401 621327 TYPE C ;*¢" 
1993 006626 013746 001370 MoV FMTDPB+12,-(SP) °-:PUT THE CYLINDER AODRESS ON THE STACK 
1994 006632 004737 012136 JSR PC, $SB2D ;CONVERT IT TO DECIMA 
1995 006636 004737 012076 JSR PC: SSUPRS : TYPE IT 
1996 O0664e 104401 021337 TYPE , LINSP ; SPACES 
1997 OO6646 104401 021331 TYPE  ({T 
1998 006652 OOSO4E CLR ~(SP) ‘OLEAR THE STACK 
1999 OO6654 113716 001367 MOVB FMTDPB+11,<SP) ;PUT THE TRACK RODRESS ON THE STACK 
2000 O06660 004737 012136 JSR PC, $SB2D ; CONVERT IT TO DECIMA 
2001 O06664 004737 012076 JSR PC’ SSUPRS ;TYPE I 
2002 006670 104401 001167 TYPE  , SCRLF :CR- Ee 
2003 O06674 012737 O06546 oD0060 MOV WNEWSYC, OBTKVEC ;RESTORE ENTRANCE TO THIS ROUTINE 
coy 006702 o00002 RTI ; RETURN 
e008 ;PARAMETER ENTRY ROUTINE 
2007 : CALL 
2008 : MOV #ADR,R ;PARAMETER TABLE ADDRESS 
gna ; ISR PC, BARENT GET THE PARAMETERS 
2011 O06704 010246 PARENT: MOV -(SP) ;SAVE R23 
2012 O06706 912703 001376 MOV STABLE R3 PARAMETER TABLE ADDRESS 
2013 O06712 012337 o07e2 1S: MOV (R3)+, 3$ ADDRESS OF PARAMETER NAME 
2014 O06716 O01436 BEG 95 :BR IF AT END OF TABLE 
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TYPE ; TYPE THE PARAMETER NAME 
38: -WORD 0 !ADDRESS OF ore te NAME TEXT 
MOV (R3)+,Re ; MAXI PARAMETER VALUE 
MOV (R3)+,RS ;ADDRESS OF 
MOV (RS),-(SP) s CURREN VALUE OF PARAMETER 
TYPOS ;TYPE THE CURRENT VALUE OF THE PARAMETER 
YPE , SLASH / 
ROLIN ‘READ THE KEYBOARD 
MOV (SP)+,R1 INPUT ASCIT ateis ADDRESS 
JSR RS,CK.DIG ;CHECK THE DIGIT( 
1$ ; CARRIAGE ee, ONLY ENTERED 
9$ ;PERIOD ONL et NTERED 
6$ ; ILLEGAL_IN NPUT 
S$ : TERMINATED 1 e CARRIAGE RETURN 
6$ : TERMINATED WITH ’ 
7$ : TERMINATED WITH : - 
S$: MOV Re, (RS) :MOVE NEW VALUE TO PARAMETER LOCATICN 
BR 1$ ; GET MORE + pasieei ERS 
6$: TYPE BADENT 
ne ke ,R3 DECRERENT THE TABLE POINTER 
7$: nov Re, (RS) sNEW VALUE 
8$: oR. #TABLE,R3 ReLOm oy PARAMETER TASLE ADDRESS 
9S: MOV (SP)+,R3 ; RESTORE R3 
RTS PC : RETURN 


; THIS ROUTINE IS USED TO CHECK IF A 
sASCII CHARACTER IS A DIGIT BETWEEN No AND 7. 
; CAL 


: MOV #ADR,R1 ;ADDRESS OF ASCII CHARACTER 
: JSR RS,CK.OCT *CHECK THE CHARACT 
: RETURN :CHARACTER IS Not BE TWEEN 0-7 
: RETURN2 : CHARACTER Is IN R2 A 
: :OCTAL DIGIT 
CK.OCT: CMPB (R1),#°9 ;LESS THAN ZERO? 
BLO YES -- BRANCH 
CMPB ss (R21), #7 : GREATER THAN SEVEN? 
BHI 1$ :YE BRANCH 
MOVB  (R1),R2 ;GET THE CHARACTER 
BIC #tC7.Re ‘STRIP AWAY THE ASCII 
TST (RS )+ ‘ADJUST FOR RETURN 
1$: RTS RS : RETURN 


;THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
sAND, DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 


: MOV #ADR,R1 ; ADDRESS OF ASCII CHARACTER 
: JSR RS, CK. DEC CHECK THE CHARACTER 

: RETURN! !NOT BETWEEN 45 AND 9 

: RETURN2 :BETWEEN 0 AND 9 

; :Re = DIGIT 


SEG 3040 
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2071 00704 121127 o00060 CK.DEC: CMPB = (R1), #0 ;LESS THAN ZERO? 
2072 0070S2 10340 BLO YES -- BRANCH 
073 007054 lel 7 000071 CMPB =s«¢R1) , #9 : GREATER THAN NINE? 
074 007060 101004 BHI 1$ !YES -- BRANCH 
2075 O07062e 111102 MOVB  (R1),R2 : GET THE CHARACTER 
2076 907084 O42702 oD0060 BIC #°0,R2 ‘STRIP AWAY THE ASCII 
2077 O27070 905725 TST (RS3+ ‘ADJUST FOR RETURN 
2078 007072 900205 is: RTS RS : RETURN 
2980 : THIS ROUTINE WILL CHECK AN ASCII CHARACTER TC 
2081 ‘DETERMINE WHAT IT IS. 
2082 : CALL 
2083 : MOV #ADR, R1 sADDRESS OF ASCII CHARACTER 
2084 : JSR RS, CK. CHR ; CHECK CHARACTER 
2985 : RETURN ADRI : UNKNOWN CHAR 
2086 : RETURN ADR2 CARRIAGE RETURN ‘ (R1)=ADR+1 
2087 : RETURN ADR3 “COMMA * (R1)=A 
2098 : RETURN ADRY :PERIOD * CRI) =ADR# 
2089 : RETURN ADRS :DIGIT BETWEEN 0 AND 7 
2090 : RETURN ADRS sD1GI BETWEEN 8A 
2031 : Re = DIGIT * (R1)=ADR+1 
2093 007074 105711 f CK.CHR: TSTB (R11) ; "CARRIAGE RETURN"? 
2094 007076 O01417 BEQ 3$ ;YES == BRANCH 
2095 007100 121127 oo0054 CMPB ss (R21), #", "9 
2996 O07104 O01413 BEQ 23 ;YES =- BRANCH 
2097 007106 121127 o00056 CMPBs«(R1), #”.. "PERIOD"? 
2098 O071le 001407 BEQ 1$ tYES =~ BRANCH 
2099 007114 004537 007046 JSR RS, CK.DEC "DIGIT"? 
2190 O007120 ooo410 BR 4g =NO == BRANCH 
2101 OO7122 904537 007020 ISR RS,CK.OCT :OCTAL ? 
007126 005725 TST (R5)+ :DIGIT BETWEEN 8-9 
007130 905725 TST (RS)+ :DIGIT BETWEEN 0-7 
007132 0605725 1$: TST (RS)+ rer 10D 
097134 005725 25: TST (R5)+ 
007136 005725 3g: TST (RS)+ CARRIAGE RETU 
007140 905201 INC R1 ?MOVE POINTER uns NEXT CHARACTER 
o07142 011505 4g: MOV (RS),RS : UNKNOWN CHARACTER 
007144 900205 RTS - RS : RETURN 


; THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
i CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN Re. 


Ry ee rl Ewe be eh 
MUL el WO WON MUM M-OWONIM UI CW 


rururorofrororonfroupfforulvPururfurulrulforurururor 
hb bs he ee ee 


MOV #ADR,R1 ;ADDRESS OF ASCIZ STRING 
: MOV #NUM; Re :MAX. MAGNITUDE OF INPUT NUMBER 
: JSR RS. CK.DIG :CHECK DIGITS 
RETURN ADRI ;"CR" ONLY ENTERED -- R2=0 
: RETURN ADR "PERIOD" ONLY EN NTERED -- R2=0 
: RETURN ADRS ;ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2=? 
: RETURN ADRY ;"CR" =~ Re = NUMBER 
: RETURN ADRS "COMMA" -- R2 = NUMBER 
: RETURN ADR6 :"PERIOD" -- Re = NUMBER 
O07:46 O1D44e CK.DIG: MOV RY, -(SP) :SAVE RY 
OO7150 O1034€ MOY R3’-(SP) :SAVE RB 
O07152 oi0e4¢ MOV Re’ -(5P) :SAVE THE MAX. SIZE ON THE STACK 
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= ON 
=1 INHIBIT ERROR TYPEOUTS 

; *#SW10=1 BELL ON ERROR 

: 3=1 LOOP ON ERROR 


RMFOR. SUPPORT SUBROUTINES 
2127 007154 ooso0e2 CLR Re :START WITH O 
2128 007156 o0S003 CLR R3 
2129 007160 o05004 CLR RY 
2130 007162 004537 007074 ISR RS, CK.CHR ;CHECK ONE CHARACTER 
2121 OO7166 007262 6$ ‘ILLEGAL CHARACTER 
2132 007170 007270 35 “CARRIAGE RETURN 
2133 007172 O072be 6$ he 
HE ie Be if sian 82 
gi3P 555 0 BAS 5 i$ : Hf -9 
2137 007202 062705 000004 1S: ADD #4,R5 ;STEP RETURN POINTER PAST “CR” & “PERIOD” RETURNS 
2138 907206 06303 25: ASL R3 : INPUT NUMBER #2 
138 007210 O10346 MOV R3,-(SP) :SAVE *2 
2140 007212 006303 ASL R3 : 
Siu2 DOSE beeeos Abb CC SP)4,RQ i1e2)4(4B) = #10 
2 +, : #2) +(k = 
2143 007220 060203 ADD é i GBBatE Pe INPUT NUMBER 
.2144 007222 004537 oc7o74 JSR RS: CK. CHR >CHECK ONE CHARACTER 
2145 007226 007266 95 ; ILLEGAL_ CHARACTER 
2146 007230 007252 cs :CARRIAGE RETURN 
2147 007232 007250 ~t we 
2148 007234 O07242 3$ ~* 
2149 007236 007206 25 :DIGIT 0-7 
e150 097040 O07e06 3. 23 ‘DIGIT 8-9 
2151 007242 10S711/, 3: TSTB (R1) :DOES A “CR” FOLLOW THE “PERIOD” 
2152 007244 O01010 BNE ok} : NOT 
2153 007246 005724 TST (R4)+ SINCREMENT THE RETURN 
2154 007250. 005724 | 4g: TST (R4)+ ‘INCREMENT THE RETURN 
2155 007252 005724 ss: TST (R4)+ ! INCREMENT THE RETURN 
2156 007254 Oe03i6 CMP R3, (SP) :CHECK THE MAGNITUDE OF THE NUMBER 
2157 007256 902004 BGE 9¢ :BR IF ENTERED NUMBER TOC LARGE 
2158 007260 oco4de BR 3t :BYPASS INCREMENT 
2159 O0726e 005725 6S TST (RS)+ ‘INCREMENT RETURN PAST INVALID RETURN 
2160 007264 0605725 ? TST (RS)+ INCREMENT RETURN 
2161 007266 O6D0405 95 ADD RY RS :SETUP RETURN POINTER 
2lbe 007270 010302 9$ MOV R3.Re sENTERED VALUE 
2163 007272 005726 TST (SP)+ ‘CLEAN MAX. SIZE OFF OF STACK 
2164 007274 012603 MOV (SP)+,R3 -RESTORE R3 
. 2165 007276 O12b04 y (SP)+°R4 :RESTORE RY 
2166 067300 O11505 MOV (RS),RS :GET RETURN ADDRESS 
e167 007202 900205 RTS RS : RETURN 
2169 .SBTTL MACRO ROUTINES 
sist 
gi7e .SBTTL ERROR HANDLER ROUTINE 
eirs 
2174 : 5 RELRREA REEL ERE LARA R ELE LERAAERRAL ERE LELEL ARATE ALLL RRARFRARERLET 
2175 : *THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
2176 :*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
2177 :#AND GO TO TYPERR ON ERROR 
2178 :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
e173 :*SW1S=1 HAL RROR 
eligi 
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7 #CALL 
P 


SERROR: 


7$: INCB 


1$: INC 


Ss: 


; THIS POUT TNE USES THE “ITEM CONTRO 


WHICH ERROR ee 
; TABLE” (SERRT 
; CONCERNING THE 


TYPERR: 7 
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N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
TEST FOR CHANGE IN SOFT-SWR 
R1, DDRIVE iORIVE ADDRESS IF DRIVE ERROR CALL 
TTN iA TTEN TION REGISTER CONTENTS 
FM tBestie, os.c «CURRENT CYLINDER ADDRESS 
FMTOPB+11.0S. TRK jREGUESTED TRRCK ADDRESS 
RM. BEGSRNBA ; NON-ZERO BUFF ADDRESS ? 
NO BUFF Ra DRESS 


E 
RN. REG+RMBA, -.sp}" "BUFFER ADDRESS 
(S sDECREMENT THE ADDRESS . 
siSP5s, SGDDAT  ;GET THE BUFFER WORD WHICH DIDN*T COMPARE 
FLG’ s3SET, THE ERROR FLAG 
it :DON’T LET THE FLAG GO TO ZERO 
STSTNM, SDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
WGIT10,aSWR —; ;BELL_ ON ERROR? 


$ ii 

SBELL RING BELL 

$ERT *: COUNT iE NUMBER OF ERRORS 

SP) SERRPC ttCET ADDRESS OF ERROR INSTRUCTICN 


PC 
seedRpe $ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#BIT13, JSWR ;;SKIP TYPEQUT IF SET 


2 :SKIP TYPEOU 
PC. TYPERR ::GO TO USER ERROR ROUTINE 
SCRLF 
JSWR ::HALT ON ERROR 
33 ::SKIP IF CONTINUE 
::HALT ON ERROR! 
;; TEST FOR CHANGE IN SOFT-SWR 
#81703, OSWR ; LOOP ON ERROR SWITCH SET? 
$LPERR, (SP) ; FUDGE RETURN FOR LOOPING 
SESCAPE $3 CHR FOR AN ESCAPE ADDRESS 
SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
; ;RETURN 
L BYTE At ($1 TEMG) TO_DETERMINE 
0 BE REPORTED, IT THEN FROM THE "ERROR 
AND REPORTS THE APPROPTATE TOREORRATION 
ERROR. ; 
:SAVE RO-RS 
RO : CLEAR RO uf OR ERROR NUMBER 
SITEMB,RO :ERROR N 
Ro : FORM INDEX FOR ERROR TABLE 
RO 
RO 
#SERRTB,RO :FORM ADDRESS 


~, 


la 
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$549 prea goad “2a piles BRANCH IF CHERE ISN'T ONES 
2241 007544 104401 001167 TYPE  ,$CRLF RE ARRTAGE RETURN = LINE FEED 
-ee42 907550 10440] TYPE 

2243 007552 o00000 2f: .WORD 0 :"EM" POINTER GOES HERE 

2244 Oo7&54 012037 007570 33: MOV (RO)+,4$ :PICK UP DATA HERDER (DH) POINTER 

2245 087.50 901404 BEQ S$ :BRANCH IF NONE 

2246 007562 104401 001167 TYPE | SCRLF : CARRIAGE FET URN-LINE FEED 

2247 007566 104401 TYPE 

2248 007570 900000 4g: .WORD «=O "DH" POINTER GOES HERE 

2249 007572 012001 s3: MOY (RO)+,R1 ‘PICKUP DATA TABLE (DT) POINTER 

2250 907574 001460 BEQ 20$ : BRANCH N 

2251 907576 OoSo0s CLR RS :SET INDENT SWITCH 

2252 007600 012000 MOV (RO)+,RO ‘DATA FORMAT (OF) POINTER 

2253 OO07602 Ol12002 MOV (RO)+;Re :NUMBER OF DH’S TO TYPE 

2254 007604 O014S! BEQ 17$ ; BRANCH IF DH NUMBER IS 0 

2255 007806 005105 COM RS NDENT 

2256 007610 104401 OC::87 TYPE SCRLF ‘CARRIAGE RETURN-L INE FEED 

2257 907614 112003 10$: movS  tRO)+,R3 NUMBER OF DATA WORDS Td TYPE 

2258 OO7616 112004 MOVB (RO) +; R4 AND OW TO TYPE THEM 

2259 007620 OO6004 11$: ROR ;OCTAL OR DECIMAL? 

2260 O07622 103403 BCS 12% : DECIMAL--BRANCH 

2261 007624 013146 MOV 3(R1)+, -(SP) !;SAVE a(R1)+ FOR TYPEOUT . 

2262 O076e6 104402 TYPOC ::G0 TYPE--OCTAL ASCIIC(ALL DIGITS: 

2263 007630 o00402 BR 13 

2264 007632 12%: : 

2265 OO7E32 O13146 MOV,  @(R1)+,-(SP)  ;;SAVE J(R1)+ FOR TYPEOUT 

soeS BOSE Se meee 13g freee R3 {AGRE NUFGERS. 10. TY pes! seh 

< 4 ; 

2268 SB SEaB 2 146 BEG 145 =BRANCH 

2269 OO7642 104401 021237 TYPE LINSP iYES-- TYPE SEPERATORS 

2270 646 000764 113 LOOP 

2271 907650 O05302 14 DEC Re MORE DH's? 

e272 007652 003431 BLE 20$ 5NO-~BRAN 

ss tureee fee Seu an on a ee 
ua} 8} { U 

5522 nape Bee G 4 BEQ S$ BRC iF eS Beate rh INDENT 

2676 cO7ee6 00510 con RS : INDE 

5552 7672 104401 021337 YPE Pe NSP nee SPACES 

2279 007676 012037 O07704 15$: MOV {RO)+, 16% :GET NEXT 

2280 007702 104401 TYPE :AND_ TYPE " 

2281 007704 Odo0000 18S: .WORD 0 :DH POINTER GOES HERE 

epB82 007706 905719 *ST RQ) : TYPE A OT’ 

2283 007719 001003 BNE 213 ‘BR IF A *DT’” 

2284 007712 62700 oo0co4 ADD #4, RO iINCREMENT THE "DF* POINTER 

Dees 607716 900754 BR 14¢ IF END OF *DF* BLOCK 

2286 007720 104401 o01187 218: TYPE SCRLF : CARRIAGE RETURN-LINE FEED 

: 97 po77e4 0057 c TST RC : INDENT? 

ope 007726 0013 BNE —«_-«10$ :NO--BRANCH 

2289 007730 104401 021337 178: ‘TYPE LINSP ; YES~-TYPE SPACES 

2290 907734 000727 BR ids LOOP 

223: 00773¢ i94413 203: RESREG RESTORE RC-RS 

2292 007745 00207 RTS PC :RETU 

2295 .SBTTL TYPE ROUTINE 
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+ KEKKE RE KH EH ERE R EERE AERA AERA REAR EERE EERE EERE EE EEE EE EEE EERE EEE EE 
: FROUTINE TO TYPE ASCIZ an er MESSAGE MUST TERMINATE WITH A O BYTE. 

sar ROUTINE WILL Re Te NUMBER OF NULL CHARACTERS pr TGR, A LINE FEED. 

*NOTEL: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


i xNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REGLIRED. 
i SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
:*#CALL 
#1) DBING A TRAP INSTRUCTION piece 
i TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN SSCIZ STRING 
:% TYPE 
:* MESADR 
.% 
007742 105737 901157 $TYPE: TSTB  $TPFLG ;;1S THERE A TERMINAL? 
097746 100002 BPL 1$ 3 YES 
007750 d00000 HALT ;;HALT HERE IF NO TERMINAL 
bo775e 900407 BR 33 ss LEAVE 
7754 10046 18: MOV RO, -(SP) AVE RO 
907756 017600 900002 MOV 92(SP) RC :;GET ADDRESS OF ASCIZ STRING 
007762 112046 23: MOVB (RO) +, -( SP) + BUSH CHARACTER TO BE TYPED ONTO STACK 
007764 001005 BNE 4§ ;}8R IF IT ISN'T THE TERMINATOR 
007765 005726 TST (SP) LIF TERMINATOR POP IT OFF THE STACK 
007770 012600 60$: MOV SPs RO  TRESTORE RO 
007772 062716 oo0002 38: ADD (SP) ; {ADJUST RETURN PC 
007776 ood002 RTI TUR 
010000 122716 00001! 4S: CMPB ane :;;BRANCH IF <HT> 
019004 001430 BEQ 
010006 122715 oo0200 CMPB ss WCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
010012 00100 BNE S$ 
010014 905726 TST (SP)+ $3POP_ <CRD<LF> EQUIV 
010016 104401 TYPE :;TYPE A CR AND L 
010020 001167 SCRLF 
010022 105037 o10is6 CLRB SCHARCNT 3 CLEAR CHARACTER COUNT 
010026 000755 BR 2$ ;GET_NEXT CHARACTER 
010030 004737 o1011¢ c$: ISR PC, STYPEC 1360 T YPE THIS CHARACTER 
010034 123726 901156 ES: CMPR 3 SFITLLC,(SP)+ © $315 IT TIME FOR FILLER CHARS. ° 
010040 001350 BNE zs :;1F_NO GO GET N 
010042 013746 001154 MOV SNULL ,-(SP) 3 3Ge OF FIL FILLER cH. “NEEDED 
01004 105366 900001 7$: DECB =-:1i SP) :sDOE a NUL Ny F TO BE TYP 
9100Se 002770 BLT 3 RIF N NO--Go_ 3 i THETRULL SPF OF STACK 
010054 004737 910112 JSR PC, $TYPEC $0 TYPE A 
010060 105337 010156 DECB © $CHARCNT ;;D0_NOT COUNT” RS A COUNT 
610084 000779 oR 7§ ; :LOOP 
;HORIZONTAL TAB PROCESSOR 
Q1006E 112716 OO0040 gS: Move ;3REPLACE TAG WITH SPACE 
019072 004737 910112 98: ISR , $1yP TYPE A 
010075 132737 000097 o1ois¢ BI1TB a SCHARENT :/BRANCH IF NOT AT 
816:04% 00137 BNE 93" :TAB STOP 
010106 coS72¢ TST (SP)+ ;;POP SPACE OFF STACK 
010319 000724 cr 25 GET NEXT CHARACTER 


eth Bi RMA, RMOl FORMATTTER PROGRAM 


RMFOR.P11 TYPE ROUTINE 
2351 010112 105777 171032 
2360 510116 190375 
2353 010120 116677 oo0002 171024 
2254 010126 12c766 000015 o0000e 
2255 010134 001003 
2356 010136 105037 010156 
357 019142 oo0406 
2358 010144 122766 ooco12 osoDDce 
2359 010152 o01402 
2360 010154 105227 
2361 910156 990000 
2362 019160 000207 
2263 
2364 
2365 
2366 
2367 
2368 
2369 
227 
2271 
e372 
Bee 
53 
2376 
2377 
af 
2380 
2381 
S355 
cep 
2387 
2380 
2389 
2390 010162 017646 o00000 
2391 O10166 116637 O0000! o1040S 
2392 910174 112637 O10407 
23932 010200 062716 O0000e 
2294 010204 o00406 
He tian Tie SRR slags 
5399 Biases 112737 O000005 9010404 
fa tee pies 
2400 010234 010546 
2401 010236 113704 010407 
2402 O10e42 oo05404 
2403 010044 062704 oo00de 
2404 O10250 110437 910406 
2405 010254 113704 O10405 
2496 C1060 Olesos oooo12 


” 
» 
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STYPEC: tN aSTPS ;;WAIT UNTIL PRINTER IS READY 


EC 
MOVB e(SP) ,a$TP 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB ss #CR, 2 (SP) ;315 CHARACTER A CARRIAGE RETURN? 
BNE 1$ :BRANCH IF _N 
CLRB § $CHARCNT ;; YES--CLEAR NCHARACTER COUNT 
BR STYPEX T 
1S: CMPB LF, O( SP) IS CHARACTER A LINE FEED? 
BEG $TYPEX :: BRANCH IF YES 
(PC)+ ::COUNT THE CHA 


RACTER 
;; CHARACTER COUNT STORAGE 


oO 


INCB 
SCHARCNT : . WORD 
$TYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


5 EEE EER EERE EEE K EERE REE REE EAE EEE EEE EE EAA AREA EAR EES 
‘ETHIS R ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
¥OCTAL (ASCII) NUMBER AND TYPE IT. 

; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


ie MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

:# TYPOS ;;CALL_ FOR TYPEOUT 

-% .BYT N ;;N=1 oR FOR NUMBER OF DIGITS TO TYPE 
:+ .BYT M 3;M=l 0 

:# 1=TYPE LEADING ZEROS 

i? tite SUPPRESS LEADING ZEROS 


i SSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
#$TYPOS OR $TYPOC 

i CALL: MBER T0_8 ED 

i HOS 0 id LL Bok reed if 
Tal 


NUM, - (SP) 
gyro —eme HERE FOR TYPEOUT OF A 16 BIT NUMBER 


1 MOV NUM, -<(SP) ;;NUMBER TO BE TYPED 

3% TYPOC ;;CALL FOR TYPEOUT 

$TYPOS: MOV a(SP),-<SP) 3s PICKUP THE MODE 
MOVB 1¢SP), SOFILL ;LOAD ZERO FILL SWITCH 
MOVB (SP)+, SOMODE+1 ; NUMBER OF DIGITS TO TYPE 
oe #2, (SP) ;;ADJUST RETURN ADDRESS 


B 
S$TYPOC: MOVB #1,SOFILL 
STYPON: + #5,$ 


;;SET THE syne FILL SWITCH 
;;SET FOR SIX(6) DIGITS 
33 9ET ie ITERATION COUNT 


V R3,-(SP) 
MOV RY, -(SP) :ISAVE R 
MOV RS, -(SP) ; SAVE Re 
eye SOMODE+1, RY :;GET THE NUMBER OF DIGITS TO TYPE 
ADD a, RY fol i FOR MAX. ALLOWED 
MOVES R4’ SOMODE SAVE IT 


MOVE  S$OFILL,RY 
MOY 12(SP),R5 


;;GET THE cERO LL SWITCH 
;;PICKUP THE INPUT NUMBER 


ad <s 
2 F ied rr ; — 
11 fhn, RMOL FORMATTTER PROGRAM MACYL1 27(732) 30-SEP-76 13:5 PAGE 47 SEQ 3047 
aME BINARY TO OCTAL (ASCII) AND TYPE 

2407 010364 gos003 1. cL R3 ti tFare Inge Ente “oo 
538 staal alate : BR 3 ?GO DO a 
2410 010272 906105 23: ROL RS : FORM THIS DIGIT 
2411 010274 006105 ROL RS 
Ris gies pee my Bars 
2414 13398 0610 33: ROL R3° : + GET LSB OF THIS {DIGIT 
2415 010304 105337 O10406 DECB § $OMODE 3; TYPE THIS DIGIT 

4] Oi 190 100016 BPL $ :BR IF NO 
oti? 10312 bHe703 177776 BIC #177770,R3 HiGET RID OF JUNK 
2419 016320 005704 TST RY ‘gu PRESS THIS 0? 
2420 0193222 001403 BE} S$ Y 
2421 010324 005204 4g: INC RY ::DON’T SUPPRESS ANYMORE ars 
2422 010326 052703 oco0060 BIS #°0,R3 ::MAKE THIS DIGIT 
2423 010332 052703 000940 Ss: BIS #’ ‘R23 ::MAKE ASCII IF NOt ALREADY 
2424 010236 110337 O10402 MOVB 3,83 33 SAVE FOR TYPIN 
2425 O10342 104401 O10402 TYPE 3¢ TYPE THIS DIGIT 
2426 010346 105337 010404 73: DECB  - $OCNT + UN BY 1 
2427 010352 003347 BGT 2g BR Ma MORE TO DO 
cise p see Boe apa fic Be Rs Re One T DIGIT ISN’T A BLANK 

4 Hr 4 

556 Bibgen BBR59d aes Ho e THe Las abt hi ctt 
cua Se BT SES - ov (35 ya" BS 3 STORE RS 
5435 Bisse 12603 MOV (2p}4°Ra :: RESTORE R3 
2434 010370 O16666 oO00002 990004 MOV 2(SP).4(SP) SET THE STACK FOR RETURNING 
Syae biowoD | Bdoo0s ee es RETURN 
5138 toage 00 Q$: .BYTE 0 }STORRGE FOR ASCII DIGIT 
2438 010403 000 -BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
2439 010404 900 SOCNT: BYTE 0 :OCTAL DIGIT ¢ C NTER 
2440 O1040s 300 SOFILL: .BYTE 0 ‘ZERO F 
Ean C19406 900000 SOMODE: .WORD 0 ::NUMBER OF Brarre TO TYPE 
e443 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

44S ; it iyule ROUTINE TS USED TO CHANGE A IG-BIT BINARY MUMGER TO A S-DI 
cue : *SIGN RED” OOo TAL SeETT. } ge AND 8 * DEPENDING ON WHETHER Atle 

que ree PEE Me GEER ster VE A aire Fie DoE E Te ee Rte BE TYEED 
2449 - BEFORE THE FIRST DIGIT “OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
e450 s EREPLACED WITH SPACES. 
e4te :# MOV NUM, -(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
s53 1 TYPDS ::GO TO THE ROUTINE 

4 1041 STYPDS: 
Ser pteGt 010046 MOV RO, -(SP) ;:PUSH RO ON STACK 
2457 O10412 O1Ol4E MOV R1;-(SP) :;PUSH R1 ON STACK 

458 010414 19 4 MOV Re, -(SP) ;s PUSH a i eI ack 

13 1416 1034 MOY R3,-(SP) .+;PUSH R 

466 O104 10546 MOV RS’-(SP) - | +:PUSH RS ON STACK 
2461 O10422 012746 o20200 MOV #20200, -(SP) ::SET BLANK X SuITCH AND SIGN 
e462 O10426 Ol6e0S c00d0e0 MOV 20(5°)' RS ::GET THE INPUT NUMBER 


oa 
¢ 
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RMFOR.P CONVERT BINARY TO DECIMAL AND TYPE ROUTINE : 


463 Mtoe Apooe: BPL 1$ ;;BR IF_INPUT IS POS. 

464 010434 O05405 NEG RS ;;MAKE THE BINARY NUMBER POS. 
2465 010436 112766 000055 00001 MOVB #’-, 1(SP) ;;MAKE THE ASCII NUMBER NEG. 
2466 O10444 905000 1$: CLR Fo ;;ZERO THE CONSTANTS INDEX 
2467 QO10446 O12703 010624 MOV #$DBLK,R3 ; s SETUP THE QUTPUT POINTER 
e468 0104S2 112723 000040 MOVB iM , (R3)+ ;SET THE FIRST CHARACTER TO A BLANK 
2469 010456 Oo0S500e 2$: CLR CLEAR THE BCD NUMBER 
e470 Q10460 916001 010614 MOV $DTBL(RO),R1 ;;GET THE CONSTANT 
2471 010464 160105 3$: SUB R1,R5 3; FORM THIS BCD DIGIT 
e472 010466 O0e40e BLT 4$ F DON 
2473 010470 9005202 INC + INCREASE THE BCD DIGIT BY 1 
2474 010472 000774 BR 3 
2475 010474 060105 4$: ADD R1,R5S ;;ADD BACK THE CONSTANT 
£476 010476 005702 TST Re ;;CHECK_IF BCD DIGIT=0 
2477 010500 001002 BNE S$ ;;FALL THROUGH IF OQ 
2478 010502 105716 TSTB (SP) 3s STILL DOING LEADING 0°S? 
Be en eu s: fle Ge ‘er 
Supe ober lebe3 01 177777 nove i P) ,-1(R3) 68 IF 

(éié¢ a 3 
: 5 ’ 3 
ae B10es6 h28583 illatate b$ BIS ‘8 Re its 2 2S Biel ASCII 
2484 010524 052702 oo0040 7$: BIS #’ Re + HOKE IT A SPACE _IF NOT ALREADY A DIGIT 

485 Qi 30 A42553 MOVB Re {R3)+ ;;PUT_THIS SORES IN THE OUTPUT BUFFER 

486 Ol TST O)+ *: JUST IN 
2487 010534 O20027 O00010 CMP RO, #10 ent K THE TABLE INDEX 
Ae he fae oat a page 
e480 010544 010502 MOV RS,R2 ii T LSD 
2491 010546 000764 BR 6$ 1360 CHANGE TO_ASCII 
2492 010550 105726 8$: TSTB (SP)+ i WAS a LSD THE FIRST NON-ZERO” 
2493 010552 100003 BPL 3 
2494 QO10554 116663 177777 177776 MOVB -1(SP),-2(R3) i VESH<SET THE Sieh FOR TYPING 
2495 010562 105013 9$: CLRB (R3) ites THE TERMINA 
2496 010564 012605 MOV (SP)+,R5 ;;POP STACK INTO Re 
2497 010566 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 
24 010570 012602 MOV (SP)+,Re2 ;;POP STACK INTO Re 
2499 010572 012601 MOV (SP)+,R1 ;;POP STACK INTO Rl 
2500 010574 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
2501 010576 104401 010624 TYPE $DBLK ;;NOW TYPE THE NUMBER 
eS0e 010602 016666 000002 o00004 MOV 2(SP),4<SP) :;;ADJUST THE STACK 
2503 O10610 Oleblb MOV (SP)+, (SP) 

2504 O1061e o0000e RTI ;;RETURN TO USER 
2505 010614 023420 $OTBL: 10000. 
2506 O10616 9001750 1000. 
2507 010620 000144 100 
eS08 O10be2 000012 10. 
se03 010624 000004 $OBLK: .BLKW 4 
4 
soit -SBTTL TTY INPUT ROUTINE 
2513 5 RRR ERE EKER AA KEE REL RE KEKE EK EERE KARE RE HERA EA RLER LEER AEE RE REDS 
2514 “ENABL LSB 
2515 019634 000000 STKCNT: .WORD OQ ;NUMBER OF ITEMS IN QUEUE 
eSig 010636 900000 STKGIN: .WORD OQ SEIN POINTER 
2517 i064 000000 $TKQOUT: .WORD 0 ;;CUTPUT POINTER 
25i8 Cl0e4e 000007 $TKQSRT: .BLKB 7 3; TTY KEYBOARD QUEUE 
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RMFOR.P11 TTY INPUT ROUTINE 


2519 010651 STKQEND=. 

2520 010652 EVEN 

2522 :#TK INITIALIZE ROUTINE 

2523 *¥THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
e564 ; #SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
2526 ¥CALL: 

2527 1k JSR PC, STKINT 

2528 % RETURN 

5253 010652 005037 010634 $TKINT: CLR $TKCNT CLEAR COUNT OF ITEMS IN QUEUE 
2531 O10656 012737 010642 010636 MOV #STKQSRT,STKQIN ;:MOVE THE STARTING ADDRESS OF 
e532 O10664 013737 010636 O10640 MOV STKQIN, STKQOUT ; j QUEUE INTO THE INPUT & OUTPUT TOE INTERS. 
2533 010672 012737 010722 o00060 MOV a eeay? JSTKVEC :;INITIALIZE THE KEYBOARD VECTOR 
2534 010700 012737 O00200 oco00be MOV #200 aetKVEC+e §;;"BR" LEVEL 4 

2535 010708 005777 170234 TST astK CLEAR DONE FLAG 

2536 O10712 012777 Oco100 170224 MOV #100, ISTKS ::ENABLE TTY KEYBOARD INTERRUPT 
2537 010720 000207 RTS PC RETURN TO CALLER 

2539 ;*#TK SERVICE ROUTINE 

2540 THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

eH sx8Y in te-ebec FROM THE INPUT BUFFER AND PUTTING 
2543 TeIF THE CHARACTER IS A “CONTROL-C” (tC) STKINT IS CALLED AND 
est UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (aCNTLC) 
2546 O10722 11774 170220 éTKSRV: MOVE aS TKB,-( SP) ; ;PICKUP THE CHARACTER 

2547 010726 042716 177600 BIC atci7? (SP) :STRIP THE JUNK 

2548 010732 O21627 000003 CMP }, #3 :1S IT A CONTROL C? 

2549 010736 001007 BNE iB NCH IF NO 

2550 010740 104401 012035 TYPE SCNTLC ‘TYPE A CONTROL-C (tC) 

2551 010744 004737 010652 JSR PC STKINT ?: INIT THE KEYBOARD } 
esS2 010750 005726 TST (SP)+ CLEAN P STACK / 
2553 010752 000177 170322 JMP JCNTLC H CONT C RESTART a 
2554 010756 O2l6e7 Go0007 1S: CMP (SP), #7 i315 ITA CONTROL G? 

2555 010762 001004 BNE 2 : | BRAN 

2556 010764 022737 000176 001140 CMP 8SWREG, SWR Tere uk SELECTED? 

e557 010772 o01S00 BEG 6$ ::G0 TO SWR CHANGE 

2559 010774 23: 

2560 010774 022737 O00007 010634 CMP 87, STKCNT ::IS THE QUEUE FULL? 

2561 011002 o01004 BNE 33 :: BRANCH IFN NO 

2562 011904 104401 001162 TYPE  ,$BELL ;;RING THE 1 

2563 911019 05726 TST (SP)+ 73 CLEAN HE ARACTER OFF OF STACK 
2564 611012 o004S1 BR 

ests 11014 e162? o00023 38: CHP (SP), #23 i315 ITA {GONTROL-S? 

2567 Bt ths Bae ss 170116 CL 384s ce TTY KEYBOARD INTERRUPTS 
2568 O11026 005726 TST (SP)+ +s CLEAN CHAR OFF STA 

2569 911030 105777 170119 318: STB  aSTKS ::WAIT FOR 

2579 011034 100375 BPL 31$ ::LOOP_UNTIL rie" THERE 

257i O11036 117746 170194 MOVB asTkB ~ (SP) :3GET THE CHARACTER 

2572 O11042 042716 177600 BIC #tC177?, ( ::MAKE IT ?-BIT ASCII 

2573 O11046 Oeeb27 000021 CMP (SP}+ «hor :1S IT A CONTROL-Q? 

2=74 O110S2 OO01366 BNE 31g ::BRANCH IF NO 


mO-11-D2RMA, RMO1 FORMATTTER PROGRAM 
RMFOR.P12 TTY INPUT ROUTINE 


it 5 2777 000100 170062 
a5 Me 

OLDE 005237 010634 
Bas 011070 


021627 000140 
e$79 011074 002405 
eS58C 011076 Q21627 000175 
2581 01110e 003002 
e582 011104 O4e716 O00040 
Be tiie Wee fee 
Se HB Bee HE ons 
2s O111e6 001003 
2587 011130 12737 010642 010635 
e588 011136 000002 
2589 
2530 
2591 
2532 
eS33 
e534 
e595 011140 022737 000176 001140 
e596 011146 001124 
2597 011150 105777 167770 
e598 011154 100121 _ 
e599 O11156 117746 167764 
2600 Olll62 O4e716 177600 
2601 O11166 Oe2l627 000007 
e602 011172 001300 
2603 
2604 
2605 
26C5 
2607 
2608 
2609 011174 123727 001134 000001 
2610 Olie0e 001674 
2611 O11204 005726 
e6le O11206 004737 010652 
2613 OQlleie 005077 167726 
spit Ollel6 112737 000001 001135 
e616 O1122e4% 104401 012047 
2617 011230 104401 012054 
2618 011234 013746 000176 
e619 011240 104402 
e620 Olle 104401 012065 
e6el O11e% OOSO46 
ebee O11e50 OOS046 
e6e3 OlleSe 105777 167666 
a Olle 100375 
e626 O11260 117746 167662 
sgt O11e64 042716 177600 
e623 011270 O2l6e7 O00003 
e620 Bit 74 OO01015 
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MOV #100,aSTKS 
32S: INC STKCNT 


3; REENABLE TTY KEYBOARD INTERRUPTS 
; RETURN 
: COUNT ale CHARACTER 
PPER CASE? 


CMP (SP), #140 21S IT U cA 
BLT 4$ ::BRANCH IF YES 
CMP (SP), #175 3315 IT A SPECIAL CHAR? 
BGT 4§ “BRANCH IF YES 
BIC #40, (SP) ::MAKE IT UPPER CASE 
4: Nove (SPs aSTKQIN s5AND PUT IT IN QUEU 
a STKOIN, #STKGEND +1¢0 OFF THE ENO? 
BNE “BRANCH IF NO 
MOV #STKQSRT,STKQIN ;;RESET THE POINTER 
cs: RTI + + RETURN 


EHH HEHEHE EE EE ee 

: KSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 

ica) UREN OPERATING” IN TTY. INTERRUPT HO Sur tcH REGISTER TRAP 
RC REG. 1S THE PRS T-sur SELECTED 


$cKSH 
tg aT He NOT 
TSTB aSTKS :: 1S @ CHAR WAITING? 
BPL 15$ is UF NOT, EXIT 
MOVB  a$TKB,-(SP) 
5 #0177, (SP) MBE IT 7-BIT ASCII 
CMP (SP), 9? ::IS IT A CONTR 
BNE 2g -: IF NOT, PUT IT IN. THE TTY QUEUE 


AND EXIT 


+ RAKE HE MEE EEE EE EE ERE ERK ME HME EH SE SE EE HE EH 
t KCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY ‘gy ¥ SERVICE 
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL RESULT CF A 
:*CONTROL-G BEING TYPED, AND THE SOF TW gt gt te REGISTER SENG SELECTED. 


6S: CMPB  SAUTOB, #1 RE ING IN AUTO-MOD 
BEQ 2S tt BRAN CH IF YES 
TST (SP)+ ;;CLEAR CONTROL-G OFF STACK 
JSR pe STKINT ‘FLUSH THE TTY INPUT QUEUE 
CLR astKs + OTSABLE TTY KEYBOARD INTERRUPTS 


MOVB #1,SINTAG 


TYPE , SCNTLG 
SGTSWR: ree ‘SMSWR 


;;SET INTERRUPT MODE INDICATOR 


OV SWREG, -(SP) tt CAVE WREG FOR TYPEOU 
TYPOC ::GO TYPE--OCTAL ACT CALL DIGITS) 
TYPE  ,SMNEW ::PROMPT FOR NEW SWR 
193: CLR =(SP) ;;CLEAR_COUN 
CLR -(SP) HE NEW SWR 
73: TSTB = ASTKS CHAR THERE ? 
BPL 7$ IF NOT TRY AGAIN 


MOVE § aSTKB,-‘SP) 's PICK UP CHA 
BIC #tC177, (SP) ::MAKE IT SeeTT ASCII 


CMP (SP), #3 3318S IT A_CONTROL-C? 
BNE 9$ ;;BRANCH IF NOT 


MD- AP RMO1 FORMATITER PROGRAM 
ROUTINE 


RMFOR.P 


ecse 


ane 
BIL ett 
11316 
313324 


et ee en oe oe ee 


12420 


TTY INPU 


04401 
000177 
021627 
0 


0 
000737 


021627 


000720 


A 


 Sos0bE 


01135 
000100 
167750 
000025 


O1204e 
co0006 


ooo01s 
oooc04 
o000de 
OO0006 
001167 
001135 
000100 


01011e 
000060 


000067 


000060 
000002 


000092 


177776 . 


001166 


ocooc4 
CoOC04 


000001 
167620 


167546 


000001 
167524 


cococe 


* 
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20$: ADD 


173: INC 


18$: Pipe 
BR 
-DSABL LSB 
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pSCNTEC 

§ TAG, #1 
#100, ISTKS 
JCNTLC 


(SP), #25 
SCNTLU 

ke. SP 

19$ 

(SP), #15 
16S 

4(SP) 

11 

2(SP), aSWR 
#6, SP 
SCRLF 

SINTAG, #1 
#100, J$TKS 


PC, STYPEC 
(SP), #60 


18$ 
(SP), #67 


#60, (SP)+ 
(SP) 


eaCSP), (SP) 
7 


SQUES 
20$ 


ii YES, ECH ECHO gfQNTROL-C (#0) 
Ht TTY KEYBOARD INTERRUPTS? 
t:ALLOW TTY KEYBOARD INTERRUPTS 
::CONTROL-C RESTART 


;;1S IT A CONTROL-U? 
F NCT 


breed IF NC 
ECHO CONTROL-U (tU) 
++ ERORE PREVIOUS INPUT 
Pier S TRY IT AGAIN, 


:IS IT A <CR>? 
 BRANCY IF ‘ 
YES 1S IT HE FIRST CHAR? 
; ;BRANCH 


AND < 

+ TRE” CENABLE TTY KBD, INTERRUPTS? 
; BRANCH NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 


;;RETUR 


+ Ende CHAR 
CHA 
; | BRANCH If YES 


t BRANCH {¢ YES 
:STRIP-OFF ASCII 

::1S THIS THE FIRST CHAR 

:: BRANCH 

::NO, SHIFT PRESENT 


; Priiciiiiritrotitiiuitiitiiiuitiiititiires 
:ATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


SROCHR: MOV 
MOV 


CLR 


ty. ORPSURN Here 


(SP) 


ae p) 
4(SP) 


3GET A 0 Suer PETER FR FROM T 4 QUEUE 
33 HARACTER STACK 

;;WITH PARITY BIT STRIPPED OFF 
;:;PUSH DOWN THE PC AND 

7; THE PS 

:;GET READY FOR A CHARACTER 


= ee ee eee eee + 
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RMFO 1 TTY INPUT ROUTINE 
2687 011516 O0SO4% CLR -(SP) ;;PUT NEW PS ON STACK 
e688 011520 Qle746 011526 MOV #64$,-(SP) ;;PUT NEW PC ON STACK 
2689 011524 000002 RTI ;;POP NEW PC AND PS 
e690 011526 64S: 
2691 011526 005737 010634 1$: TST $TKCNT ;;WAIT ON A CHARACTER 
e63e Q11532 001775 BEQ 1$ 
2693 011534 005337 010634 DEC STKCNT ;;DECREMENT THE COUNTER 
2694 011540 117766 177074 OO0004 MOVB @STKQOUT,4(SP) ;;GET ONE CHARACTER 
2695 011546 O0Se37 9010640 INC $TKQOU ;; UPDATE THE POINTER 
2696 011552 023727 019640 010651 CMP $TKQOUT, SSTKQEND ;;DID IT GO OFF OF THE END? 
2697 011560 001003 BNE 3 
2698 011562 Qle737 010642 010640 MOV #STKQSRT,STKQOUT ;;RESET THE POINTER 
2699 011570 90900002 es: RTI : RETURN 
2700 es JHB HUGE HEHEHE GH HE ee 
2701 :¥THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
2702 ; *CALL: 
2703 7% RDLIN ;; INPUT A STRING FROM THE TTY 
2704 ;% RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
se 3% ;; TERMINATOR WILL BE A BYTE OF ALL Q0’S 
2707 011572 010346 $RDLIN: MOV R3,-(SP) ;;SAVE_R3 
2708 011574 OOSO46 CLR -(SP) ;;CLEAR THE RUBOUT KEY 
2709 Oi1576 012703 012026 1$: MOV #STTYIN,R3 ;;GET ADDRESS 
2710 011602 022703 012035 es: CMP #$TTYIN+7,R3 ;; BUFFER FULL? 
2711 O11606 101456 BLOS 4$ ;;BR YES 
e7le O11610 104410 RDCHR ;;G0_READ ONE CHARACTER FROM THE TTY 
2713 Qll6le 112613 MOVB (SP)+, (R3) ;;GET_CHARACTER 
2714 011614 122713 000177 10$: CMPB #177, (R3) ;;1S IT A RUBOUT 
e715 O11620 O00102e BNE S$ ;;8R IF _NO 
2716 Oll62ee 005716 TST (SP) ;;1S THIS THE FIRST RUSOUT? 
2717 O11624% 001007 BNE 6$ 3 0R IF NO 
2718 O11626 112737 000134 012024 MOVB #’\, 9S ;; TYPE A BACK SLASH 
2719 011634 104401 012024 TYPE 
2720 011640 012716 177777 MOV b-1, (SP) ;;SET THE RUBOUT KEY 
2721 011644 605303 6$: DEC R3 ;;BACKUP BY ONE 
e7ee 0116468 020327 012026 CMP R3, #STTYIN 3;STACK EMPTY? 
e7e3 O116S2 103434 BLO 4 ;;BR_IF YES 
2724 O11654 111337 012024 MOVE (R3), 98 ;;SETUP TO TYPEOUT THE DELETED CHAR. 
27eS O11660 104401 012024 TYPE 9$ ;;G0 TYPE 
2726 011664 OO00746 BR zt ;;G0_READ ANOTHER CHAR. 
e7e7 O11666 005716 SS: TST (SP) ;;RUBOUT KEY SET? 
e7e8 011670 001406 BEQ 7$ ¥ N 
e729 011672 112737 000134 012024 MOVB #°\, 9S ;; TYPE A BACK SLASH 
2730 011700 104401 012024 TYPE 
2731 011704 O0S5016 CLR (SP) ;;CLEAR THE RUBOUT KEY 
e732 0117068 122713 000025 7$: CMPB #25, (R3) ;;1S CHARACTER A CTRL U? 
2733 Q1171e 001003 BNE 33 
2734 O11714 104401 Ole04e TYPE $CNTLU 3; 1YPE_A CONTROL "U” 
2735 011720 000726 BR 1g ;;G0 START OVER 
2736 O11722 1ee713 o00022 8s: CMPB #22, (R3) ;;1S CHARACTER A “TR”? 
e737 011726 001011 BNE 33 ;;BRANCH_IF NO 
e728 011730 105013 CLRB (R3) ;;CLEAR THE CHARACTER 
e739 011732 104401 001167 TYPE , SCRLF ;; TYPE A “CR” & “LF” 
e740 011736 104401 Ole0e6 TYPE ,STTYIN ;;TYPE_THE INPUT STRING 
e741 011742 000717 BR es ;;GO PICKUP ANOTHER CHACTER 
e742 O11744 104401 OO1166 4$: TYPE , SOUES ssTYPE A *?° 


MD- AP —_ FORMATTTER PROGRAM 
TTY INPUT ROUTINE 


RMF OR. 


NOVO VOOVOVOOOVOVOVOOHD0O00000 — 


06 


freee 


ANOOVOVOGCOON0N0N00 
PRORLZOe £0 


WWW 


000712 


010046 


009267 


000015 


177777 
001170 


ooo004 
012026 


006503 


0 
047040 
900040 


oooco4 
000060 


Oleleb 


000002 
000004 


000012 
000 


000012 
020122 


053505 
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BR 1$ CLEAR THE BUFFER AND LOOP 
3S: Ove (R3) 98 ECHO THE CHARACTER 
CMPB ss IS, (R3)+ 1s CHEEK FOR RETURN 
BNE 2g P IF NOT RETURN 
CLRB = = 1 (R3) CLEAR hE TURN (THE 15) 
TYPE SLF ict PE A 
TST (SP)+ ; ; CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 
MOV (SP), ~(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP} 2°SP) ti FIRST ASCII CHARACTER ON IT 
MOV #STTYIN, 4(SP) 
RTI ; RETURN 
9S: .BYTE 0 1] STORAGE FOR ASCII CHAR. TO TYPE 
“BYTE 0 TERMINATOR 
STTYIN: .BLKB 7 RESERVE 7 BSYTES FOR TTY INPUT 
SCNTLC: .ASCIZ /tC/<15><12> ‘CONTROL "C" 
SCNTLU: .ASCIZ /tU/<15><12>  — ;CONTROL “U" 
CNTLG: .ASCIZ 71G/<15><1e> _— ;;CONTROL “G” 
SWR: .ASCIZ ¢<15><12>/SWR = 
$MNEW: .ASCIZ / NEW = 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


5 EEE EEE EEE EERE EE KARE EEE EER EERE EEE EE ER EEE EER ERE 
: ATHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
; LEADING NU NUMBERS. 


;* MOV 
;* JSR 


#NUMADR , - (SP) 


;;FIRST ADDRESS OF ASCIZ STRING 
PC, a#SSUPRS 


$SUPRS: MOV RO, -(SP) :SAVE RO 
MOV 4(SP) ,RO :  BICKUP P THE POINTER 


1$: TSTB 3 TERMINA 
BEG 2$ YES 
CMPB #°0,(RO)+ i315 THIS AN ASCII "O”" ” 
BEQ 1§ M4 YES 
es: DEC RO ;;BACKUP BY "1" 
Ne RO,3$ ae TYPING 
33: . WORD ;ASCIZ POINTER GOES HERE 


0 
MOV (SP)+,RO ;RESTORE R 
MOV (SP)+, (SP) ; RESTORE THE STACK 
RTS PC ; ;RETURN 


.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


; ae gy ree ge ee weer es gt soe yc tne natn oe 
:#THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO 
: HUNS IGNED DECIMAL ASCIZ NUMBER. 


NUMBER,-(SP)  ;;PUT BINARY NUMBER ON THE STACK 
PC, J8SSBeD CALL 


te MOV 
i* JSR 


SEG 0052 


MO- abi RMO1 FORMATTTER PROGRAM 


RMFOR.P 


ONON00000 
FELOLOLES 


COomuc 


C12310 


SINGLE LENGTH BINARY TO 


016637 


000000 


ane7ee 


ooocce Cil2ibb 
Ole166 


000082 
900006 


0000Ce 
Ole3Se2 
000002 


000012 
012302 
012304 


COO0ED 


012270 


MACY11 27(732) 
DECIMAL ASCIZ ROUTINE 


.¢ 


$S820: 


i$: 


RETURN 
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(SP) 1$ 
$,-(SP) 

°C, axs820 
(SP) 

(Sb)s, 2(SP) 


0,0 


;;ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


: SAVE BINARY NUMBER 
a DOUBLE LENGTH CONVERT 
SEONLY jALLOW FIVE CHARACTERS 
; PICKUP POINTER 

PET SRN 


is 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5 EERE EEE EERE REAR ERE REEL AE EERE EEE ER EEE EEE EEE EEE EERE EERE SEES 
 ATHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 


3$: 


4§: 


STNPUR: 


MOV 
JSR 
RETURN 


SAVREG 
M U 


#PNTR, -(SP) 
Pc, ax$DB20 


#10. 45 
SST NPUR RY 
#STNPWR+2, RS 


R3 
(R4),R1 
(RS), R2 
3$ 
R3 
2s 
(R4)+,R1 
Re 
(R4)+,R2 
(Fs) 4, (RS)+ 
»R3 
os tRO)+ 
cre) 


"5 
(RO}+ 


wv 
oO 


sHDECINAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


;;POINTER TO LOW WORD OF BINARY NUMBER 


;:THE FIRST ADDRESS OF ASCIZ 
!!IS ON THE STACK 


;;SAVE REGISTERS 

tis 4 THE DATA POINTER 

;;GET ADDRESS OF “SDECVL" STRING , 

iieie ADDRESS OF ASCIZ STRING ON STACK 
;PICKUP THE BINARY NUMBER 


1861 UP_ TO DO 10 CONVERSIONS 
;ADDRESS OF TEN POWER 


pee PARTIAL 

::SUBTRACT TEN POWER 

:;BR IF TEN POWER TO LARGE 

i100 1 TO PARTIAL 

::RESTORE SUBTRACTED VALUE 

s;MOVE TO NEXT TEN POWER 

: CHANGE PARTIAL TO ASCII 

: : DONE? 

:3BR IF NO 
TERMINATOR 

; |RESTORE REGISTERS 

: : RETURN 


;;1.0&09 
;;1.0&08 


SES 905+ 


MO- = rah RMO1 FORMATTTER PROGRAM MACY11 27(732) 30-SEP-76 13:58 PAGE SS SEG GOSS 


RMFOR.P DOUBLE LENGTH SINARY TO DECIMAL ASCII CONVERT ROUTINE 
2855 Ole3le 112200 113200 ::1.0E07 
2856 012314 000230 230 
26S? O12316 041100 041100 ;;1.0&06 
2858 012320 000017 7 
28539 Ole32ee 103240 103240 ;;1.0€05 
2860 Ol2324 000001 
2861 Ole3e& O234e0 23420 ;;1.0E04 
e862 012330 900000 
2863 Ole33e 001750 1750 ;;1.0E93 
2864 612334 000000 0 
2865 012336 000144 144 ;;1.0€&02 
2865 012340 000000 0 
2867 Ole34e o0001e le -:1.0€01 
2868 012344 000000 0 
no st Sue a 
4a le3S2 000014 S$DECVL: .BLKB le. ;;RESERVE STORAGE FOR ASCIZ STRING 
er .SBTTL SAVE AND RESTORE RO-RS ROUTINES 
Seee Pee ge peas penne cay se ae RNR RRL ERENT 
2877 ;*CALL: 
2878 of SAVREG 
ale. ; HUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
2881 i STOP=-~(+16) 
2882 : +2---(+18) 
2883 1 +4---RS 
2884 i +6---RY 
ees ;* +B---R3 
2886 :¥+10---R2 
2887 :#+12---R1 
2888 :#+14---RO 
2889 
2890 012366 $SAVREG: 
2891 Ole2366 O1004E MOV RO,-(SP) ;;PUSH RO ON STACK 
2892 012370 O10146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
2893 012372 010245 MOY Re, -(SP) ;;PUSH R2 ON STACK 
2894 012374 Ol1O3S4E MOV R3.™ (SP) :;PUSH R3 ON STACK 
28 012376 O1O44E MOV Rei, (SP) 33 RY ONS 
e896 Ole400 O10S546 MOV RS,-(SP) ;;PUSH RS ON S 
2897 012402 OlEBYE 000022 MOV 22(SP) , -(SP) 7;SAVE PS OF MAIN FLOW 
2898 012406 Ol6646 O0002e MOV 2 fies ;;SAVE PC OF MAIN FLOW 
2899 Qle4¥le Olb646 000022 MOV 2e(SP),-(SP) :;SAVE PS OF CALL 
2900 Ole416 O1bEYE. 000022 MOV <6 SP),~(3P) ;:;SAVE PC OF CALL 
cans Cle4¥22e o0000e RTI 
903 ;*RESTORE RO-RS 
904 s#CALL: 
2305 RESREG 
2906 o12424 éRESREG: 
2907 Ole4e4 O12666 000022 MOV (SP)+,22(SP) + RESTORE PC OF CALL 
23908 012430 Olebbs o000e2e MOV (SP)+,22(SP) ;;RESTORE PS OF CALL 
2909 O1e434 Ole666 000022 MOV (SP)+,22(SP) :;RESTORE PC OF MAIN FLOW 
2310 Ole4s2 Olett& cootee MOV (SP)+,22(SP) ;;RESTORE PS OF MAIN FLOW 


‘ocd 


“a coe © 


I 
O12 
0 
012450 
0 
0 
) 


12460 


012605 


nanoce 


Oid046 
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MOV (SP)+,R5 ;;POP STACK INTO RS 
MOV (SP)+,R4 ;;POP STACK INTO RY 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (SP)+,Re ;;POP STACK INTO 

MOV (SP)+,R1 ;;POP STACK INTO Rl 
ay (SP)+,RO ;;POP STACK INTO RO 


.SBTTL TRAP DECODER 


5 REE REE E EERE ERLE RE EKER EE ERE EH EERE EE HEE REALE EERE EEE 
THIS ROUTINE WILL ce THE LOWER BYTE OF THE a INSTRUCTION 
:¥AND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
'0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:#G0 TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) :SAVE RO 
MOV (SP), RO ig! TRAP ADDRESS 
TST (RO) ACKUP BY 
MOVB (RO), RO ::GET RIGHT BYTE OF TRAP 
ASL RO : POSITION FOR INDEXING 
MOV $TRPAD(RC) RO INDEX TO TABLE 
RTS RO ::G0 TO ROUTINE 


;:THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAPe: MOV (SP), -<{SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) 3 HOVE THE PSW_ DOWN 
TI ;;RESTORE THE PSW 


.SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE "TRAP™ INSTRUCTION. 


: ROUTINE 


$TRPAD: .WORD $TRAP2 
$TYPE +:CALL=TYPE TRAP+1( 104401) TTY TYPEQUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZERCS) 
$TYPCS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING EROS: 


$TYPON SS attS TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS a 
$TYPCS ;;CALL=TYPDS TRAP+S( 104405) TYPE DECIMAL NUMBER (WI 


$GTSWR stlseeten TRAP+6(104406) GET SOFT-SWR SETTING 


$CKSWR ;;CALL=CKSWR TRAP+7( 104407) TEST FOR are IN _SOFT-SwWR 
SROCHR 3 }CALL=RDCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
L=RDLIN TRAP+11(104411) TTY _TYPEIN STRING ROUTINE 


SROLIN ;;CAL 
$SAVREG  }CALL= SAVREG TRAP+12( 104412) SAVE RO-RS ROUTINE 
SRESREG ;;CALL=RESREG  TRAP+I3( 104413) RESTORE RO-RE ROUTINE 


w 
to 
4 
4 
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MD-L1-D2RM8, RMOL FORMSTTTER PROGRAM MACY11 27° 732) 30-SEP-76 13:58 PAGE S7 SES 3CS7 
RMFOR.PLL SINGLE “DUAL PORT RH70/RMO1 OR IVER ( (REV 1.0) 
2367 » 
236 :COPYRIGHT (C) 1976 
2363 ;DIGITAL EQUIPMENT CORP. 
2370 :MAYNARD, MA 01754 
sori SACTHOR(S)¢ JIM LACEY/CHUCK HESS/AL BURNESS 
2373 5p RRR ARLE RARE ARAL ELLA ALES EER ELE ELSE ER ERE REESE ALR ALE AREAL AALS ES 
297 
2o7s5 i STORAGE | FOR RMDS, RMER1, RMER2, AND RMMRE ON AN ERROR “2” 
£376 RRS = RMOS 
2377 TRMERRG+2 = RMERL 
237g  RMERRS+4 = RMERe * 
5ao8 | RMERRS+6 = RMMRe 
298i Ol2es4é g0005° ooo090 o90009 RMERRS: .WORD 0,0,0.0 
033 Siseeu ooo09° 
2984 ; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 SYTES) 
2985 sDRVACT=0 IF DRIVE IS IDLE 
29285 :DRVAST>O IF DRIVE IS ACTIVE WITH A COMMAND Fd we 
ad :DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
2988 0i2556 Coc DRVACT: .BYTE QO sORIVE O 
e998 9ie557 O90 -BYTE Q -DRIVE 1 
e951 612560 O03o -BYTE Q :DRIVE 2 
2e33e Oleséi 506 .BYTE OQ *DRIVE 3 
23993 Cl2cbe2 008 -BYTE OQ ;DRIVE 4 
23994 91ceSE3 005 .BYTE OQ :DRIVE 5 
2399S 012564 co .BYTE OQ sORIVE & 
soa 012555 009 .BYTE 9Q ;DRIVE 7 
¢ 
2998 TABLE OF DRIVE STATUS INDICATORS (DORVSTA=8 SYTES? 
999 sORVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
2090 ;ORVSTA>C IF DRIVE IS ONLINE 
Sons ;DRVSTA<O IF DRIVE IS UNSAFE 
2003 Olessé 000 ORVSTA: .BYTE Q sORIVE 0 
3004 CleSe? OCC -BYTE 9 : DRIVE i 
3005 012570 COS -BYTE OQ DRIVE 2 
3006 012571 0o¢ -BYTE Q ;DRIVE 3 
20907 OQles7e 000 -BYTE 9Q ;DRIVE 4 
2008 012573 500 BYTE O sORIVE § 
2009 012574 099 -BYTE OQ -DRIVE 6 
sie 012575 00 .SYTE QO DRIVE 7 
30i2 ; TABLE OF pRIVE TYPES (ORVTYP=8 BYTES) 
3013 ;ORVTYP=0 IF DRIVE IS hk al al (ORVSTAsO, ALS 
2014 sO vTYpes IF ORIVE IS RMOl 
Etta :DRYTYP=-1 IF NOT RMO1 
2017 91e57€ ooc DRYTYP: .BYTE 0 :DRIVE 0 
2018 012577 900 .BYTE 0 : DRIVE l 
2919 012600 090 -BYTE 9 :;ORIVE 2 
eed O1e60} O00 .eYTE Q ;DRIVE 3 
slei Clebde Jeu Ss ae :ORIVE 4 
2S2e Lleecs3 ajaia) .BYTE Q :ORIVE 5 


MO-21-DZRMA, RMOL FORMATTTER PROGRAM MACY11 27(732) 30-SEP-76 13:56 PAGE S8 SES 5058 
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3023 212604 909 -BYTE 0 DRIVE & 
soe 812605 500 "BYTE 6 !DRIVE 7 

3036 : TABLE OF DUAL PORT INITIALIZATION INDICATORS 

3937 :DPINT=0 IF INITIGLIZATION IS NOT ACTIVE ON THE DRIVE 

see :DPINT<O IF INITIALIZATION IS IN PROGRESS 

3936 012606 ooo DPINT: .BYTE 0 DRIVE 0 

3031 012607 00 "BYTE 0 SORIVE 1 

3032 912610 990 "BYTE !DRIVE 2 

3033 Ol2611 000 "BYTE OO ‘DRIVE 3 

3034 012612 900 "BYTE 0 ‘DRIVE 4 

3035 012613 906 "BYTE O :DRIVE S 

3936 912614 alate "BYTE 0 IDRIVE & 

3037 012615 p09 "BYTE 0 :DRIVE 7 

3039 : TABLE OF PENDING Dual pont REQUESTS. 

3046 sDPROS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
3041 :DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRiv 
3043 O12616 00 OPRGS: .BYTE 0 DRIVE 0 

3044 012617 990 "BYTE 9 ‘DRIVE 1 

3045 012520 090 "BYTE 0 !ORIVE 2 

3046 Olebel 00 "BYTE :DRIVE 3 

3047 Slebe2 000 "BYTE ZDRIVE 4 

3048 Olebe3 900 BYTE O !DRIVE 5 

3049 012624 900 BYTE 0 :DRIVE & 

3056 012625 000 BYTE 0 ‘DRIVE 7 

3052 TRANSFER WAIT FLAG (TRNSWT=1 WORD) 

3053 sTHIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ACORESS OF 

3054 :"DPB” OF THE 1/0 OPERATION. 

3056 012626 coocco TRNSWT: .WORD 0 

3058 ;SEARCH WAIT KEYS (SRCHWT=1 WORD) i 

3059 “THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
3060 THE DRIVES THAT ARE PERFORMING A SEARCH CONMAND, FOR THE 1/0 
3061 IREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUELE. 

30be “EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT Stan FOR DRIVE 2. 
3068 012620 ocosoc SRCHWT: .WORD 0 

3066 :RMO1 DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 

3067 SACTORV=0 IF DRIVER IS INACTIVE 

3068 ‘ACTDRV>O IF DRIVER IS ACTIVE 

3076 012622 p00 ACTDRY: .BYTE 0 

3072 ; SOFTWARE. TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 

3973 ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 

2074 ‘ACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 

3076 012532 000 ACTSTR: .BYTE O 

3977 


3078 ;UNLGAD FLAG (ULDFLG=8 BYTES) 
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RMFOR. SINGLE “DUAL PORT RH70/RMO1 DRIVER (REV 1.0) 


307 sULDFLG=0 IF NO UNLOAD COMMAND 
3696 ULDFLG> FE Te OT ORO OND TN PRO gRESS 

3081 !ULDFLG<O IF UNLOAD COMMAND IN WAIT GUEU 

shea pisese = 995 ULDFLG: Ove Og DRIVE 

085 0125636 ie BYTE 0 ‘DR IY 2 

Stee Me aa 

3088 pt 641 6 YT ; iBR VE S 

3089 O1e64e2 090 BYTE QO !DRIVE & 

3030 012643 000 BYTE 0 :DRIVE 7 

3092 :LOOK AHEAD COUNT (LACNT=8 BYTES) 

3033 SLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
3095 o12644 000 LACNT: .BYTE 0 :DRIVE 0 

3096 oO12645 900 ‘BYTE :DRIVE 1 

097 01264 00 ‘BYT : ; DRIVE 2 

698 C1264 00 "BYT DRIVE 3 

3099 012650 000 "BYTE 0 DRIVE 4 

3100 012651 909 "BYTE QO DRIVE 5 

3101 Oiesse 090 "BYTE O DRIVE 6 

3108 Hi2653 600 "BYTE O DRIVE 7 


;SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
;SAVEFG <0 IF SAVE THE "RH?D/RMO! REGISTERS WHEN THE 
: OPERATION 25 COMPLETED AS PER (DPB+14). 
:SAVEFG=0 IF SAVE THE RH70/RMO1 REGISTERS, AS PER 
: (DPB+14), AFTER AN ERROR. 


012654 o9cocod SAVEFG: .WORD O 


;SEEK FLAG (SEEKFG=1 WORD) 
; SEEK ——_ if At THE oi ADORESS ISN’ NM mm THE WINCCH 
:FOR A DATA TRANSFER START A SEARCH COMM 
;SEEKFG<O IF Baye TRANSFER WILL DO INPLIED SEEKS, 
:DISREGARD THE WINDOW 


CieéS& oo0000C SEEKFG: .WORD 0 


; TIMEOUT TABLE {TIMER=8 WORDS) 
; THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


012660 177777 TIMER: .WORD -1 ;DRIVE 0 
012662 177777 “WORD 1 DRIVE 1 
012664 177777 WORD -1 DRIVE 2 
Digbbe 177777 WORD -1 DRIVE 3 
12670 177777 “WORD = =1 DRIVE 4 
012672 177777 “WORD =] :DRIVE 5 
612674 177777 “WORD 1 DRIVE 6 
812676 177777 “WORD -1 DRIVE 7 
;DATA TRANSFER UNDERWAY INDICATOR (OTUbi=} WORD) 
i ;DTUW<O IF NO DATA TRANSFER U 


COQUGIGIOIOI 0) GIGI GI GI GUGI GI) G9 GI G0 OIG) GIGIGI GY (9 GI (GI GI) 


LOCI CO GOGO PUruly MU PUPUnuny ee ee 8 - OOOOOUO 
£00 OW NOW £OT OOO NOUS lone OO WMO US 


NDERW 
:DTUW=S+N (WHERE N=O TO 7) IMPLIES BATA TRANSFER UNDERWAY ON ORIVE N 
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FoR SINGLE/DUAL SORT RH70/RMO1 DRIVER (REV 1.0) 
3135 
3136 012700 177777 DTUW: .WORD -1 
313¢ :ATTENTION BITS TABLE (ATABIT=8 BYTES) 
3136 . ii Tee EoNTAINS Th THE CoE ResponDING BIT TO EACH DRIVES 
sii ATTENTI ON B 
3142 012702 001 ATABIT: YT DRIVE 0 
3143 O1e703 592 ; VIE : i BRIE 1 
3144 012704 904 “BYTE DRIVE 2 
3145 91270 O10 -BYTE ip ;DRIVE 3 
i4 Btso98 o4 "BYTE 4 i BRIE S 
3148 012719 100 "BYTE 100 : DRIVE g 
3149 012711 206 "BYTE 200 :DRIVE 7 


3150 

3151 sFSRMO1 TO RH70 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED SEFORE 

sib !CALLING IT FATAL (MCPEMX=1 WORD) 

> 

315 012712 oco000 MCPEMX: .WORD 0 

21 T R RMADR FIRST _ADDRESS (776700 H ZRMOL 

He SRNOEC ETHIE VECTOR ADDRESS ToSauo AND RMUECSS (THE BR” Pepe RM SS 

3159 012714 176700 — RMADR: .WORD 176700 

3160 012716 ocd254 opoe4o RMVEC: .WORD  254,5%32. 

ziFe sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 

3 

3164 o012722 ococo4 MXLACT: .WORD 4 

zi6s :MAXIMUM DELTA DELAY IS 9 SECTORS (MXDLTA=1 WORD) 

3167? ol2724 901000 MXDLTA: .WOR #64 

ae MNTRINGIM’ BEC TA DELAY tS 2 SECTORS (MNDLTA=1 WORD) 

3170 012726 oode00 MNDLTA: .WORD 264. 

3171 sMAXIMUM SEARCH FOR I/O WINDOW IS S SECTORS (MXWNDW=1 WORD) 

3173 012730 900005 MXWNOW: .WORD 5 

175 DEFINITIONS OF THE RH70/RMO1L ADDRESS INDEXES . 

3177 000 RMCS1= CONTR TATUS REGISTER #1 (DRIVE REG. OC) 

3178 SERBS Berita” HOR gout rab cisteR Rat BS patvece " 

3180 DODDDE Rubace DESIRED SECTOR S REGISTER ch of A DRIVE) CR 1yE, BES. 05 
= / 

S18 ttt RMCS2=10 is a Se Ais recisi ER a2 oer A ORTVE REGS 

318 eats RRER Deas ERROR Be GISTER a (DRIVE hee. RBS) 

ai itt ib Re Sei . sATTENTION NS uy +e REGISTER (DRIVE RES. 94) 

siE? pppese RM B=58 ae BUFFER" Le oar A BRIVE REG. } 

eH ae RRO Toe ‘RIVE APE Fi 4 TER GISTER 0 y BES a3 

2129 RSN=S0 ; SERIAL ef kates (orl (D i Reo. 10) 

3196 000032 RMOF = 32 OFFSET REGISTER (ORIVE REG. 11) 


, 
a 


MO-11-DZRMA, RMO1 FORMATTTER PROGRAM MACY11 27(732) 30-SEP-76 13:56 PAGE 61 SEG 9061 
RMFOR. P11 SINGLE“DUAL PORT RH70/RMO1 DRIVER (REV 1.0) 


3191 000034 RMDC=34 ; DESIRED CYLINDER ADDRESS REGISTER (ORIVE REG. 12) 
3192 090036 RMHR=36 ‘DUMMY ADDRESS REGISTER (DRIVE RES. 12) 
3193 000040 RMMR2=40 ‘MAINTENANCE REGISTER #2 
3194 goco4e RMERO=42 ‘ERROR REGISTER #2 (DRIVE 9€G. 15) 
3195 990044 RMEC1=44 !ECC POSITION REGISTER (DRIVE REG. 18) 
3136 990046 RMEC2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
3198 :RH70/RMO1 DRIVER INITIALIZATION CODE 
3199 : THIS ROUTINE WILL DETERMINE WHICH RMO1 DRIVES ARE 
3 0 : AVATLABLE FOR T StIN : ang SET ont DRVSTA INDICATOR 
201 :TO THE PROPER STATE FOR EACH DRIVE. 
£02 ‘NOTE: THIS ROUTINE CALLS ORVINT- 
3204 : CALL 
3205 ; 
3206 : JSR PC, RMINIT 
3207 : RETURN 
3203 ?NOTE: THE *P’ OR ’L’ CLOCK MUST BE STARTED 
3211 012732 104412 RMINIT: SAVREG ;SAVE RO - RS 
3212 012734 O13746 177776 MOV aePS, -(SP) ‘SAVE THE PRESENT PROCESSOR STATUS 
3213 Oi2740 012737 900240 177776 MOV #<S¥32.), auPS ; CHANGE THE PRIORITY TO 5 
3214 012746 004737 029706 ISR PC. CLRQUE ‘CLEAR ALL REQUEST QUEUES 
3215 Ole7S2 O1e70i o12546 MOV #RMERRS, R1 ‘FIRST ADDRESS TO BE CLEARED 
3216 O12e756 012702 O126S6 MOV RSEEKFG,Re *LAST ADDRESS TO BE CLEARED 
3217 Ole7b2 o0S02) 1$: CLR (R1)+ : CLEAR 
3218 Ole764 O20102 CMP R1,Re ARE WE DONE? 
3219 012766 775 BLOS «=s«1$ “BRANCH IF N 
3220 012770 012702 o1e700 MOV #DTUW, R2 ‘LAST ADDRESS 
3221 612774 Dle72l 177777 23: MOV #-1, (R1)+ : INITIALIZE 
3222 013000 Oe CMP R1,Re : DONE? 
23 013002 101774 BLOS 2 :LOOP I 
3224 013004 605037 012566 CLR ORVST SET ALL DRIVES TO OFFLINE 
3225 013010 005037 012570 CLR DRVSTAt2 
3226 013014 OO 012572 CLR DRVSTA+4 
3227 013020 005637 012574 CLR DRVSTA+E . 
3228 013024 013703 O1e716 MOV RMVEC,.R3  -  ;SETUP THE RH70/RMO1 VECTOR 
3229 013030 012723 O1SSE0 MOY #ISR, (R3)+ 
3230 013034 013713 012720 MOV RMVEC+2. (R3) 
363 013046 13704 012714 MOV RMADR, RY FIR ST ADDRESS OF RH70/RMO! 
32 013044 012764 O00040 ocoool0 MOY WBITOS.RMCS2(R4)° :MASSBUS INIT 
po nn ee Cr sa 
235 013060 O00401 BR 4g’ ae TY er SET OR PARITY ERROR 
3536 BT SES OOeOeT 012566 4 Bree BAVSTACRI) eet T ORIVE, STATUS TO OFFLINE 
3238 013070 605201 cs: INC :GO TO NEXT DRIVE 
3239 013072 042701 177770 BIC 8tC7,R1 :MASK OUT UNUSED BITS 
3240 013076 O01366 BNE 3$ ;BR IF MORE ORIVES TO GO 
3241 €i3100 012701 op0007 MOV #7,R1 ‘START WITH DRIVE 7 
3242 013194 0050327 177776 CLR dees :CLEAR THE PROCESSOR STATUS 
3243 013110 105761 O12606 6S: TSTB DPINT (RI) : WAIT ING FOR DRIVE TO SWITCH PORTS ? 
Ze44 013114 001405 BEG $ ?BR NOT WAITING 
3245 013116 004737 oe0342 JSR PC, SET.IE :SET INTERRUPT 
2246 013122 105761 Cleboe 73: TSTB = OPINT(R1) :DRIVE SWITCHED PORTS ” 
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soya Braise OpeaOT es pe Ot 8 Hr NEXT, DRIVE 

24 pt3130 nial BES Eg i ecK NEXT DRIV 

3250 013134 012637 177776 MOV (SP)+, aaPS RESTORE THE PROCESSOR STATUS 
3251 013140 104413 RESREG :RESTORE RO - RS 

sebe 913142 00207 RTS PC : BYE-BYE 

3254 :DRIVE INITILIZATION ROUTINE 

3255 ; THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
3256 i RMOL. IF IT I “READ-IN N PRESET” 1S ISSUED AND FMT2e2 
3257 TS St tok Ain, THEN wl"QL, BPR AND VV ARE CHECKED To 
3259 :INSURE THEY ARE ALL ON A “1”. AND DEP PENDING ON THEIR STATE, 
3259 _ sORVSTA IS SET TO THE BROPER CONDITION. 

3260 CALL 

3261 : MOV #DRVNUM, R1 ;DRIVE NUMBER TO RI 

3262 : MOV RMADR, R4 :UNIBUS ADDRESS OF RH70/RMO1 (RMCS1) 
3263 : JSR RO, ORVINT ; CALLED BY A JSR 

3264 : RETURN !ERROR OCCURRED (PARITY) 

3265 : RETURN2 =NORMAL RETURN 

3266 : 

3267 

3268 O123144 O10S46 DRVINT: MOV RS, -(SP) ;SAVE_RS 

3269 013146 105061 o1eses CLRB  DRVSTACR1) ;START DRIVE STATUS AS OFFLINE 
3270 013152 105061 012576 CLRB = ORVTYP(R1) :CLEAR THE DRIVE TYPE INDICATOR 
3271 613158 105061 012634 CLRB -—:ULDFLG(R1) ‘CLEAR THE UNLOAD FLAG 

3272 O13162 O10164 o00010 MOV RI. RMCS2(R4) ‘SELECT A DRIV 

3273 013166 112764 000111 oocod0 MOVB #111, RMCS1(R4Y) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
3274 013174 030764 010000 o00010 BIT #BITL2, RMCS2(R4)’ NONEXISTENT DRIVE? 

3275 013202 001403 BEQ 1$ ;NO---B 

3276 013204 004737 oe034e2 JSR PC, SET. IE :GO cer oe WITHOUT A “TRE 
3277 013210 900476 BR 6S “LEAVE THIS ROUTINE 

3278 Ol3ele 105061 012566 13: CLRB  DRVSTA(R}) ‘SET DRIVE STATUS TO OFFLINE 
3279 013216 032764 OO4000 ococoD0 BIT #BIT11,RMCSI(R4) ;SEE IF DRIVE AVAILABLE 

3280 013224 90147 BEQ 75 ;BR IF DRIVE NOT AVAILABLE 
3281 O132e6 O04037 o17652 JSR RO,RD.RM ?READ THE DRIVE TYPE REG. 

3282 013232 o00026 RMDT 

3283 013234 013432 ag ERROR RETURN ADDRESS 

3284 013236 012605 MOV :PUT DRIVE TYPE IN RS 

3285 013240 1le76f OO0004 ol1es76 MOVB iS spa TiecR ;SET RMOL INDICATOR 

3286 01304 022705 o20024 CMP #2002 i SINGLE PORT RMO! ? 

3287 013252 00140 BEG 2$ 

3288 013254 022705 o24024 CMP _ atigae : DUAL PORT RMOL ? 

3289 013260 001404 BEQ $ 

3290 013262 112761 177777 012576 MOVB 8-1, DRVTYPCR1) SET INDICATOR TO ‘OTHER’ 

32°91 013070 OO00446 BR 6S T 

3292 013272 612746 000121 23: MOV #121,-(SP) DO A “READ-IN PRESET” 

32393 013276 004037 020032 JSR RO, WRT. RM 

3294 013302 oo0000 RMCS1 

3295 013304 013432 

329% 013306 012746 o10000 MOV #B1T12,-(SP) :SET FMT22=1 

3297 012312 004037 020032 JSR RO, WRT. RM 

3298 013316 00003e RMOF 

3299 013320 013432 8 : 

3300 013322 004037 0o17652 JSR RO,RO.RM :READ RMDS 

2301 013326 o000i1e2 RMDS ‘ 

3302 013330 013432 
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3303 013332 012605 Mov (SP)+,R5; sAND SAVE IT IN RS 4 

305 pi 3337 116164 012702 coool MOVB rnas ches ANE EAR AT FERTION BIT 

3306 013344 004037 017652 ISR RO,RD.RM "FIND CUT WHY ATA=] 

Be tee Bine " 

3309 013354 006126 ROL (SP)+ ;1S IT UNSAFE? 

3310 013356 100004 BPL 4 FN 

3311 013360 112761 177777 O1e566 MOVB = #-1, DRVSTA(R1) :SET UNSAFE INDICATOR 

3312 013366 000407 BR 6S X | 

3313 013370 005105 4§: COM RS 'CHECK MOL DR, DRY, AND vv 

3314 013372 O042705 167077 BIC ##C<BIT12!BIT08!8IT07!B1T0> 

3315 013376 001003 BNE %3 ;BRANCH IF Moe ORY, iF VV IS CLEAR 

3316 013400 112761 o00001 ol1esé6 MOVE #1, DRVSTACR1) ia! DRIVE eratus Ry 5 

3317 013408 00572 6S: TST (RO)+ TEP OVER THE ERROR Pate 

3318 O13410 O0041 B 8$ EX 

3319 013412 006301 73: ASL Rl :CHANGE INDEX T9 ADDRESS WORDS | 

3320 013414 012761 502720 o1e660 MOV #2000. , TIMER(RI) :START 2 SEC TIMER 

3321 013422 006201 ASR 

3322 013424 112761 177777 012606 MOVB #1, DPINT(R1) iset PORT INITIALIZE INIDICATOR 

3323 013432 O1e605 . gS: MOV (SP}+,R5 RESTORE RS 

$324 013434 900200 RTS RO SEXIT 

3366 ;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

3328 : CALL 

3329 : , 

3330 : JSR RO, J#RMOL ;CALL THE RMO1 DRIVER 

3331 : PNTADR ; ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK ! 

3332 : RETURN ;RET HERE IF QUEUE 

3333 : RETURN2 RETURN HERE IF REQUEST 15 IN QUEUE OR THERE 

3338 IS AN ERROR CONDITION 

3336 013436 01374 177776 RMOl: MOV auPS, -(SP) ; SAVE | THE CALLING STATUS 

3327 013442 013737 012720 177776 MOV Rivet? aePS  :DON’T ALLOW ANY RMO1 INTERRUPTS 

3338 Ql 450 112737 O00001 012632 MOV ACTDRV :SET TARTIVE DRIVER” FLAG 

13456 104412 SAVREG :SAVE RO - RS 

3340 013460 011002 MOV as R2 “PICKUP THE DRIVE PARAMETER BLOCK POINTER + 

3341 013462 OO0S062 900016 CLR 16(Re) ‘CLEAR THE STATUS/ERROR INDICA 

3342 013466 111201 MOVB (Re). RI :PICKUP THE DRIVE NUMBER 

se Glia Geet Gia a, Reehe,, «UR rE ge 

33u¢ Bt 00 nactae] BGT 1$ :BRANCH IF ONLT 

334 013502 105761 012634 STB ULDFLG(R1) iE ORD SD COMMAND IN QUEUE? 4 | 
{ 

3346 Bt 3298 ra 012606 BNE BB inter) RVING f Yhir THE DRIVE 

3349 013514 O01042 BNE oS BR IF YES 

3350 013516 004037 013144 ISR RO, DRVINT :GO INIT. rite DRIVE 

3351 013522 000434 BR 4 : ERROR 

3352 013524 105761 olests TSTB  DRVSTACRI) ITS DRIVE TyAATUS ONLINE? 

3353 013530 O03445 BLE :B T 

3354 013532 105761 Ol2616 1S: TSTB =‘ DPRQS(R1) “OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

3355 013536 001031 BNE :BR IF YES 

3356 013540 010164 ooocIC MOV R1,RMCS2(R4) SELECT THE DRIVE 


3257 013544 004037 021004 JSR RO, ORVQUE :PUT THIS prepes" IN QUEUE 
3358 013550 Bocca BR 98 ;QUEUE IS F 
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3359 013552 122762 000103 oo0o0e . CMPB ss: #103, 2(R2) 1S THIS REQ. FOR AN UNLOAD? 
3360 013560 001003 BNE 
3361 0135 112761 177777 012634 MOVB = i-1 ULDELGCRI) ‘SET THE “UNLOAD IN QUEUE” FLAG 
3362 013570 105761 012556 2s: TSTB = DRVACT 1S THIS DRIVE ACTIVE? 
3363 013574 001043 BNE ay 
3364 013576 004737 013730 JSR PC, OPT 'CALL THE OPTIMIZER 
3365 013602 OO0440 oR 
3366 013604 012762 120000 O00016 3s: MOV WBITIS!BIT13,16(R2)_;SET THE "UNLOAD IN GUEUE” ERROR FLAG 
3367 013612 000434 BR sEXI 
3368 013614 004737 015050 4s: JSR PC,CI7 :GO HANDLE THE PARITY ERROR 
3369 013620 000431 38 25 
3370 013622 004037 021004 cs: JSR RO, ORVQUE ;PUT REQUEST IN QUEUE 
3371 013626 000431 BR gS QUEUE IS FULL 
_ 3372 013630 032714 000100 » BIT #81706, (R4) -IS *IE’ SET ALREADY ? 
3373 013634 001023 BNE :BR If IT eter 
3374 013636 004737 O20342 ~~ - JSR PC, SET. IE set 
3375 013642 o00420 * : BR BS aE TURN, : igen QUEUE 
3376 O13644 105761 012566 6: STB D VSTA(R1) E IF’DRIVE OFFLINE OR UNSAFE 
3377 013650 O024i2 BLT F_UNSAF 
3378 13652 012762 140000 O00016 MOV aBITIS!EITIY, me -SET OFFLINE ERROR INDICATOR 
79 013660 105761 012576 TSTB DRVT YP(R1) ;SEE fF OFFLINE OR NONEXISTENT 
3351 br aeee Bie7be 100002 000016 HOW #BIT1S!BITO1, asi ) SeELTN RIVE NONEXISTENT 
4 
3383 Bi SEe BASS 3 ip ne 1) EXIT 
3383 013676 Ole7be 110000 o00016 7: NOW #BIT1S!BIT12, rec) jORIVE E IS UNSAFE 
Sage Brace bpe7aa EF (RO)+ ise FSI FoR F NORRRL RETURN 
Sanamate ai, epee eae Re 
3388 013714 005720 10s: ef RO)+ RESTORE THE RETURN’ ADDRESS 
3389 013716 105037 012632 CLRB = ACTORV :CLEAR "ACTIVE DRIVER” FLAG 
3390 013722 012637 177776 MOV (SP) +, a8PS RETURN "PS" TO USER LEVEL 
$331 013726 oo0ec0 . RTS RO RETURN TO CALLER 
3333 : jOPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
3395 : io :CALL 
33% = MOV wORVNUM, RI ;DRIVE NUMBER TO R1 
$337 JSR PC, OP ‘SETUP A COMMAND 
3399 013730 104412 @PT: — SAVREG ;SAVE RO - 
3400 013732 013746 177776 MOV aePS,-(SP) ; SAVE PROC. sa Tus 
3401 013736 005737 021060 JSR PC, GETREQ :GET “DPB” POINTER OF REQUEST 
3402 013742 005702 TST Re 18 THERE A REQUEST IN QUEUE” : 
3403 013744 001 11 BE 75 NO--BRANCH TO EX IT, t 
3404 9§1°746 032764 010000 oo0ole2 et #BIT12,RMDS(R4) "TS MOL STILL SE 
S408 bLa7ee 592764 oo0199 ooc012 Td Té,RMOS(RY) W or ° 4 
’ a ’ : 
a7 OL eres oot Bs BN os ioe Ye FIT 8 
4 137 4 G13144 ck JS DRVINT eee IF OR . STILL ONLINE ” 
3405 013772 OO0474 BR ;PARIT * NOT SET 
19 013774 108761 *012566 108: STB - ORVSTACRI) it ACIN ? 
li 014000 14 B67 is 
2412 014002 904737 021102 ISR Que apt ST FROM QUELE ai 
3413 C14¥006 Ole762 140000 coool MOV abttist6 T14, 16¢ ay FLINE STATUS“ERRCR INCICATOR 
34i4 O14014 105761 O125e6 TSTs RVSTACR1) 


hom Ae RMO1 FORMATTTER PROGRAM 


3415 014020 100070 


110000 900016 
3413 Oivose Qusca? Geodde 
s4ee 014046 032714 204000 
lee76e 000150 00002 
3426 014064 004737 014434 
3428 014072 005737 012700 
136137 012702 012630 
3432 014110 005737 012656 
3434 014116 004037 015404 


004737 O14212 
3439 014134 004737 014326 
177777 Oleb16 


4 
S444 014154 012763 023420 012660 


S446 014164 004737 015050 
3447 014170 032714 000100 


S449 014176 004737 O20342 
3450 O14e02 012637 177776 


3452 Cl4210 000207 


3465 O14212 004737 O21102 
146137 01270e 012630 
3467 014224 010237 Oleb26 


3462 014232 013704 12714 
3470 014236 C1014 oddo1c 
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1$: 


es: 


M 
RESREG 
RTS 


30-SEP-76 13:58 PAGE 65 


8$ -BR TO EXIT IF NOT 
aBITISIBITI2, 16(Re) anise to UNSAFE STATUS/ERROR INDICATOR 
#111,-(SP) +P OAD COMMAND ONTO THE STACK 
RO, WRT. RM ‘LOAD THE REGISTER 
;REGISTER INCREMEN 
: ERROR RETURN ADDRESS 
#BIT11, (RY) ‘DRIVE AVAILABLE ? 
:BR IF NOT 
#150, 2(Re) 18 THE REQUEST FOR 1/0? 
PC,CI4 ‘CALL THe COMMAND INITIATOR 
$ “BRANCH TO EXIT 
DTUW :DATA TRANSFER UNDERWAY? 
4 YES--GO_START A SEARCH 
ATABIT(RL), SRCHuE - IMPLIED SEEK SET ? 
SEEKFG ‘Do IMPLIED SEEKS? 
3$ : YES---BRANCH 
RO,LA *NO--DO LOOK AHEAD 
8$ : RETURN HERE ON A PARITY ERROR 
4$ :GO START A SEARCH 
PC,CI1 :START A DATA TRANSFER 
PC,CI3 :START A SEARCH 


:GO TO THE EXIT 
#-1,DPRQS(R1) SET PORT REQUEST INDICATOR 
R1,R3 SET U UP TO ADDRESS WORDS 

R3 “CONVERT TO WORD I NOEX 

$1 0000. , FIMERCRS) «START 10 SEC TIMER 


x 
PC,CI7 ;PROCESS THE PARITY ERROR 
uetTOb, (RY) :SEE IF *IE’ ALREADY SET 


:BR IF SET 
PC, SET.IE ‘SET "IE" WITHOUT A “TRE™ 
(SP)+, a#PS ; RESTORE PROC. aera us 
a !RESTORE RO - 


;COMMAND INITIATOR 


‘CALL 


CD S28 ee ac ee es ee we 
L on) 


#ORVNUM, R1 ; DRIVE NUNBER 
#OPE R2° “ADDRESS OF DPB 
¢,ct? scl? = cll, ,cI3, OR CI¥ 


;CII=DATA TRANSFER 
;CI2=SEARCH REQUESTED BY DATA XFER 
:CI4=NOT DATA TRANSFER 


PQUE REMOVE REQUEST FROM “DRIVES WAIT” GUEUE 
RIABITIRD, SRCHWT CLEAR THE InpL IED SEEK SET 
R2, TRNSWT :PUT REQ. IN TR TRAN ANSFER WAIT QUEUE 


RM if RY 


Br RNeS2cRM) SELECT DRIVE 


SEG C065 
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RMF OR. SINGLE/DUAL PORT RH70/RMO1 DRIVER (REV 1 
3471 oO142@42 062703 o00004 ADD a4, R3 ;DESIRED WORD COUNT 
3472 014246 062704 o0000e ADD “RMWC ADDRESS 
3473 O142S2 012324 MOV teaSe, (R4)+ ‘LOAD WORD COUNT 
3474 014254 012324 MOV (R3)+) (R4)+ ‘LOAD BUFFER RODRESS 
3475 O14256 012346 MOV (R3)+ ~ (SP) ‘LOAD SECTOR AND TRACK 
3476 014260 004037 o20032 JSR O0,WRT.R :CALL THE LOAD(WRITE) ROUTINE 
3477 014264 O00006 RMDA : INDEX REGISTER TO LOAD 
3478 014266 915050 ? ;ERROR RETURN ADDRESS 
3479 014270 012346 MOV (R3)+,-(SP) ‘LOAD CYLINDER ADDRESS 
3480 O1427e 004037 020032 JSR RO, WRT.RM 
3481 014276 000034 RMOC 
3482 014300 0oO15050 CI? c 
3483 014302 01624 op0002 MOV 2(R2).-(SP) :LOAD “COMMAND+GO", "A173A1S", AND “PSEL” 
3484 014306 004037 dO20032 JSR RO, WRT. RM 
3485 014312 000000 RMCS1 
3486 014314 O1S050 CI7 
3487 014316 010137 012700 MOV R1,OTUW :SET “DATA TRANSFER UNDERWAY” 
3488 014322 000137 015012 IMP crs 
3489 014326 013704 012714 CI3: MOV RMADR, RY :RMCS1 ADDRESS 
3490 014332 010164 OO0D10 MOV R1, RMCS2(RY) ‘SELECT DRIVE 
3491 014336 016246 000012 MOV 12tR2),-(SP) !DESIRED CYLINDER ADDRESS 
3492 014342 004037 020032 JSR RO, WRT: RM 
3493 O14346 o00034 RMDC 
3494 014350 0O15050 CI? 
3495 014352 116203 o00010 MOVE  10(R2),R3 :PICKUIP SECTOR ADDRESS 
3496 014356 163703 012730 SUB MXWNDW; R3 :BACKUP BY MAX. SEARCH FOR I/O WINDOW 
3497 014362 O02002 BGE 1$ 
3498 014364 062703 oo0040 ADD 
3499 014370 O10346 13: MOV 3183) sCOMBINE THE ADJUSTED SECTOR WITH 
3500 014372 116266 000011 oO0G01 MOVB titre 1(SP) :THE DESIRED TRACK 
3501 O14400 004037 o20032 JSR RO, WRT: RM ‘LOAD DESIRED TRACK & SECTOR 
3502 O14404 O00006 RMDA 
3503 O14406 O150S0 CI? 
3504 O14410 012746 000131 MOV #131 (SP) ;START A SEARCH 
3505 014414 004037 O20032 JSR O,WAT.R 
3506 O14420 of0000 RMCS1 
3507 O14422 015050 CI? : 
3508 O14424 156137 012702 012630 BISB  ATABIT(R1),SRCHWT :SET "SEARCH WAIT” KEY 
3509 014432 000567 BR C 5 
3510 O14434 013704 o12714 CI4: MOV RMA :RMCS1 ADDRESS 
3511 O14440 010164 OOdD10 MOV Rl Rea RM) :SELECT DRIVE 
3512 O14444 116203 oo0c02 MOVB et (Re) sPICKUP THE REQUESTED COMMAND 
3513 O144S50 122703 000131 CMPB 131, a8? :15 IT A SEARCH COMMAND? 
3514 014454 001007 BNE is :BRANCH IF 
3515 O14456 016246 900010 MOV 10(Re), 13 SP) ‘LOAD DESIRED TRACK 8 SECTOR 
3516 O14462 004037 O2003e2 JSR RO, WRT 
3517 C14466 00006 RMDA 
35i8 014470 O1S5050 CI? 
3519 014472 000403 BR 2g G0 LOAg CYLINDER 
3520 O14474 122703 oo0105 1$: CMPB =s-:s#105,R3 :IS IT A SEEK COMMAND 
3521 oO14s00 001007 BNE 3$ :BRANCH IF NO 
3522 014502 016246 00012 23: MOY 12(R2),-(SP) :LOAD DESIRED CYLINDER 
3523 O14S06 004037 Geode ISR RO, WRT: RM 
3524 014512 000034 RMDC 
3525 O14514 O150S0 C 


3526 O14S16 OOOS4E BR CI6 
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RMFOR.P 


35e7 
ee 


14520 


014674 
014676 
014702 


014770 


122703 
001013 


016203 
116237 


OS27te2 


000115 
017652 


009091 
020032 


000107 
000117 
000103 
000001 
012566 
o0c001 


020032 


000143 
017652 


000001 
020032 


000141 
oo0c06 
000010 


000011 
017652 


014720 
000082 
090145 


020032 


021102 
cco200 


01eSS6 
012634 


oo0c01 


014720 


014720 


O5001E 


MACY11 27(732) 


3$: CMPB 


4$: CMPB 


S$: CMPB 


B 
6$: CMPB 
7$: MOV 


8$: 
33: RMCS1 


108: CMPB 
118: MOV 


les: JSR 
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#115,R3 


#1, DRVACT(RI) 
ORVSTACR) 
#1, ULDELG(RI) 


R3, - (SP) 
RO, WRT. RM 


PC 
#143,R3 
RO,RO.RM 


1(R2), 1(SP) 
RO, WRT. RM 


12S 
#141,R3 
10$ 
6(R2),R3 
10(R2), 9$ 


(SP)+, (R3)+ 
9$,R5 


i2$ 
#2, 95 


#145,R3 
les 
R3,-(SP) 
RO; WRT. RM 


PC, POPQUE 
wBtTO7, 1E¢R2) 


i15 IT AN “OFFSET” COMMAND? 
;BR_IF NO 


: MERGE Me, OFFSET VALUE INTO RMOF 
;BUT DON’T CHANGE THE UPPER 


;BYTE WHEN LOADING THE 
REGISTER (RMOF ) 


;GO START THE COMMAND 

ghia A a eect COMMAND ? 
1S IT A gl TO CENTER? 

; BRANCH 

1S IT AN UINCOAD™ COMMAND? 


; BRANCH 
SET THE DRIVE i ore 


;RETURN TO USER 

15 IT A_"SET FORMAT” COMMAND? 
;BRANCH IF NO 

READ THE OFFSET REGISTER 


AND "KCI" 


:COMBINE “FMT22","ECI" 
AND/OR "HCI". 


‘LOAD “FMT2Z2", “ECI", 


31S IT A_“GET REGISTER” COMMAND? 
BRANCH IF NO 

POINTS TO 1ST re OF WHERE 
:TO PUT THE REGISTER(S) 

INIT. THE INGEX FOR_THE FIRST REG. 
3 T REG. TO MOVE 


: INDEX OF REG. TO READ 


;GET_THE CONTENTS OF RH70//RMC1 REG. 
B READ? 


;LAST REG. BEEN 
:GET OUT IF YE 

INCREASE THE on BY 2 
;LOOP--MORE TO R 

31S IT A pore DRIVE” 
:BRANCH IF YES 

;LOAD THE COMMAND 


COMMAND ? 


;REMOVE REQ. FROM UELE 
;SET THE “DONE” BIT 


SEQ 0067 


] 
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RMFOR. P11 SINGLE’DUAL PORT RH70/RMO1 DRIVER (REV 1.0) 
3583 014776 005737 012654 TST SAVEFG :SAVE THE RH70/RMO1 REGISTERS? 
3584 015002 190002 BPL 1 :BRANCH IF NO 
3585 015004 004737 Ooe0224 JSR PC, SVRH70 ‘YES--GO SAVE THE REGISTERS 
3586 015010 000207 13$: RTS PC *RETURN TO USER 
3587 015012 006301 CIS: ASL R1 
3588 015014 012761 001750 O12660 MOV #1000. , TIMER(R1) ;SET A ONE SECOND TIMER 
35€3 015022 006201 ASR 
3550 015004 112761 o00001 o12ss6 MOVB  #1,DRVACT(R1) SET THE ORIVE ACTIVE 
3591 015032 000207 RTS pc’ “RETURN TO THE USER 
3592 015034 010346 CIb: MOV R3, (SP) LOAD THE COMMAND 
3583 015036 004037 020032 JSR RO;WRT.R 
3594 O15042 900000 RMCS1 
3595 015044 015050 CI? 
3596 015046 000761 BR CIs 
3597 0150S0 032764 010000 o90010 CI?: BI #BIT12,RMCS2(R4) | ;DRIVE NON-EXISTENT ” 
3598 O1S056 001034 BN CIg Y 
3599 015960 005702 1S: TST Re : ANYTHING IN QUEUE ? 
3600 015062 001405 BEQ CI7B R IF NOT 
3601 O1S064 012762 104000 O00016 MOV #B1T15!81T11, 1ecR2) ;SET “PARITY” ERROR INDICATOR 
3602 015072 004737 Oe0224 JSR SVRH a G0 SA VE'THE RH7Q/RMOL REGISTERS 
3603 015076 O1274%6 OO0111 CI7B: MOV #i11,-(S :DO A “DRIVE CLEAR" 
3604 015102 004037 920032 JSR RO, WRT. a 
oe ieity bere a. 
369 ptetts paas3o 020764 ISR PC, EMPTY :EMPTY THE QUEUE 
eo weiss) Hee ao teeeetials«—‘oatie [erate ™ ORE FU 
610 pte} 6 nites ptS3a8 CMP R1,DTUW IF THIS DATUE HAD AN 1/0 REQUEST 
3611 015132 001005 BNE 1$ -IN PROGRESS CLEAR ALL OF THE SLAGS 
3612 015134 005037 012626 CLR TRNSWT 
3613 615140 012737 177777 012700 MOV #-1, DTUW 
3614 O15146 900207 1S: RTS PC 
3615 015150 104412 C18: SAYVREG _;SAVE RO_- RS 
3616 015152 032764 o10090 coDool10 BIT #BIT12,RMCS2(R4)° ;IS *NED’ SET ” 
3617 015160 o01002 BNE 1$ -BR IF YES 
3618 015162 O0SO0! CLR R1 
3619 015164 905003 LR R3 
3620 O1S166 105761 012556 1$: TSTB © DRVACT(R1) ; DRIVE ACTIVE? 
353 Bieta B1a703 012626 a FENSUT R ee Te eee WAIT" QUEUE 
Y 2 oe oe Gg EB 
2623 015200 pba 95 012700 CMP R1, TUM :DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
3624 015204 001402 BEQ 2 :BRANCH IF YES 
3625 015206 004737 021060 JSR PC, GETREQ :GET THE DPB POINTER 
3626 OlS212 O0570e 23: TST Re ; QUEUE ENTRY FOR DRIVE ” 
3627 015214 O01415 BEO 4g :BR IF NOT 
3628 O15216 032764 O10000 ocoolo BIT #BIT12,RMCS2(R4) RAED SET ? 
3629 615224 O01404 BEQ : 
3630 015226 Ole762 100002 oD00016 MOV WBITIS!BITOL,16(Re) _;SET "DRIVE NON-EXISTENT’ INDICATO 
te biesse eaTe O OO001E 23 OV aBrTI5: T10, 1eck ONT eet NON-CLEARABLE PARITY" ERROR INDICATOR 
4 V % we am ITY" ERR INDICAT 
3836 pt e536 pte bs Meaeen ISR Ries rE Ay 3 aM H70/RMOl REGISTERS 
3634 015250 012763 177777 O12660 48: MOV sag TINER(R3) ; STOP THE TIMER 
3635 015256 195061 O1ess6 CLRB  DRVACT(R1) :SET “DRIVE ACTIVE" TO IDLE 
3636 015262 920137 012700 CMP R1,OTUW :15 THIS gphive SETUP FOR A TRANSFER 
2627 OiSe66 O01005 BNE c$ :BR IF N 
3628 015270 012737 177777 o12706 MOY 8-1, O7UW : RESET We INDIC 
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3639 015276 005037 012626 CLR TRNSWT ;CLEAR THE TRANSFER QUEUE 
3640 015302 105061 012634 53: CLRB ss ULDFLG(R1) : CLEAR UNLOAD FLAG 

364; 015306 632764 9619000 oooolC BIT #BIT12,RMCS2(R4)" ;"NED’ SET 

3642 015314 001021 BNE 6$ :BR IF YES 

3643 915316 O0520 fi INC Ri “MOVE TO THE NEXT DRIVE 

3644 0615320 062703 oo0c02 ADD #2,R3 

3645 015324 042701 177770 BIC #t07,R1 

3646 015330 9OO01316 BNE 1$ :BRANCH IF MORE DRIVES 

3647 015332 012737 177777 612700 MOV #-1, DTU ;NO_DATA TRANSFERS UNDERWAY 
3648 015340 005037 012626 CLR TRNSHT CL EAR THE ‘TRANSFER WAIT’ QUEUE 
3649 015344 004737 020706 JSR RQUE “CLEAR ALL OF THE REGUEST QUEUES 
3650 015350 012764 900040 o00010 MOV abtT0S, RMCS2¢ RY)’ -D0 A MASSBUS INIT. 

3651 015356 O00406 BR zs NTINUE 

3652 015360 004737 O20764 6S: JSR C,EMPTYQ CEAR THE DRIVE’ S QUEUE 

3653 15364 105061 012566 CLRB BRUSTACRI) :SET DRIVE TO OFFLINE : 
3654 015370 105061 012576 €LRB ORVTYP(R1) -CLEAR THE DRIVE TYPE INDICATOR 
3655 015374 004737 929342 7$: ISR PC, SET.IE “SET "IE" WITHOUT “TRE” 

2656 015490 104413 RESREG :RESTORE RC - 

#5. 015402 dS0207 RTS PC RETURN 

3659 ;LOOK AHEAD ROUTINE 

2660 

3661 CALL 

3662 : MOV #ORVYNUM, R1 ; DRIVE NUMBER 

3663 ; MOV #OPB, Re :POINT TO DPB 

3665 : JSR RO,LA :GO CHECK THE WINDOW 

3665 : RETURN ; ERROR TURN 

3656 RETURN= ‘START A SEARCH 

3067 : RETURNS ‘START A DATA TRANSFER 

2669 15404 913704 012714 LA: MOV RMADR,R ;GET RMCS1°S ADDRESS 

3670 b15410 610164 9sddci9 MOV R1, Bree: RY) :SELECT DRIVE 

3671 015414 904037 Si7Ec= JSR RO'RO.RM !READ DRIVE STATUS 

3672 015420 Goodie RMDS 

3673 015422 O15552 ug ;ERROR RETURN ADDRESS 

3674 O15424 O42716 157577 BIC #¢C020200, (SP) :ON CYLINDER ? 

3675 015430 O22726 O00200 CMP #200, (SP)4 PIP=0,DRY=1? 

3676 15434 O01044 BNE 3$ :N 

3677 015436 105261 012644 INCB —LACNT(R1) : INCREMENT . THE LOCK AHEAD COUNT 
3678 015442 126137 O12e44 012722 CMPB —- LACNT{R!3,MXLACT’:EXCEED M 

3679 O154SC 003033 BGT 2 : BRANCH fie YES 

3680 O1s4S2 116203 op0010 MOVE  10(R2),R3 :GET DESIRED SECTOR ADDRESS AND 
2681 O15456 000302 SWAB OSéR MULT. BY S4--ALIGN WITH 

3682 O15460 O06203 ae FR R3 :LOOK AHEAD REGISTER 

3683 O1S462 006203 > ASR R3 

3684 O1S464 012737 OOOB4D 177776 MOV #340, D&PS :PRIORITY LEVEL "7" 

3685 615472 004037 O176S2 bE: JSR RO, RO. RM :READ LOOK AHEAD REGISTER 

3686 015476 O00020 RMLA 

3687 015500 o1sSSe 4 

3688 O15502 OP1664 oo00z0 CMP (SP) ,RMLACRY) s CORRECT LA NUMBER ? 

3689 815506 001402 BEG 73 YES 

3630 015510 005726 TST (SP )+ :NO,CLEAR STACK 

3691 O1SSi2 op0415 BR 3$ 

3692 15514 162603 7g: Sus (SP )+,R3 :CALCULATE THE DELTA 

3693 CisEle Ooeage BG l 

3634 C1SS20 Db2e702 oo4ooo AD #<32.#64.>.83  =sMAKE THE DELTA POSITIVE 


~, 
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FOR SINGLE/DUAL PORT RH7O/RMOL DRIVER (REV 1.0) 
3695 015524 023703 012724 18: emp MXDLTA,R3 ;CHECK THE DELTA TO SEE 
3696 015530 O92406 BLT :IF IT IS WiTHIN THE 
3697 015532 023703 012726 CMP MNOLTA, R23 WINDOW---IF YES, ZERC 
3698 015536 002003 BGE $ :THE LOOK AHEAD COUNT 
3695 O15540 105061 012644 28: CLRE =— LACNT< Ri) !AND TAKE THE 1/0 EXIT 
370C 915544 005720 TST (RO)+ 
2701 015546 905780 3: TST (RO)+ ;ADJUST THE RETURN ADDRESS 
3702 O15550 402 BR +3 SEX] 
3703 015552 904737 o15050 4g: JSR PC,CI7 :PROCESS THE ERROR 
3704 OissS6 00290 cs: RTS RO : RETURN 
3798 INTERRUPT SERVICE ROUTINE 
3708 O15560 112737 000001 012622 ISR:  MOVB  #1,ACTORV ;SET "ACTIVE DRIVER” FLAG 
3709 O15566 104412 SAVREG ;SAVE RO - RS 
3710 015570 013704 012714 MOV RMADR, RY :RODRESS OF RHSCS1 
3711 015574 013701 9012700 MOV DTUW,R1 :GET "DATA TRANSFER UNDERWAY" INDICATOR 
3712 015600 o02403 BLT 1$ :BRANCH IF NO DATA TRANSFER UNDERWAY 
3713 O1S602 004737 o15624 JSR PC, TD :CALL TRANSFER DONE 
3714 15606 900402 BR 2g sEXI 
3715 O15610 004737 015764 1$: SR PC,SC :CALL SPECIAL CONDITIONS 
~ 3716 O15614 104413 33: RESREG : RE RO - 
3717 O15618 105037 012632 CLRB = ACTORV :CLEAR “ACTIVE DRIVER” FLAG 
718 915622 ogo0d2 RTI : RETURN 
3720 ; TRANSFER DONE ROUTINE 
Ed 
7ee 915624 105061 912556 TD: CLRB = DRVACT(R1) :SET DRIVE ACTIVE INDICATOR TO IDLE 
3723 015630 012737 177777 012700 MOV #-1, DTUW !NO DATA TRANSFERS UNDERWAY 
3724 015636 906301 ASL R 
3725 O15640 912761 177777 oO12660 MOV #-1,TIMER(R1) | ;CANCEL TIMEOUT 
2726 O1S646 906201 ASR 
3727 O15650 O13708 012626 MOV TRNSHT Re ;GET “DPB” ADDRESS FROM THE 
3728 015654 005037 Ole626 CLR TRNSWT !TRANSFER WAIT QUEUE--CLEAR QUEUE 
3723 O15660 OS2762 O00200 oonoléE BIS #81707, 16(Re) :SET ONE 
730 O15666 010164 900010 MOV RI,RMCS2(R4) : SELECT 
3731 015672 0040327 017652 JSR RO! RD. RM ‘ SEGRSFER HERROAL RE=1)? > 
3732 015676 oo0000 RMCS! 
3723 015700 015050 CI? 
3724 015702 006126 ROL (SP)+ 
3735 015704 100412 BMI 33 :BR IF_YES 
3736 015706 005737 o12654 TST SAVEFG : SAVE THE RH70/RMOL REGISTERS” 
2737 015712 00002 BPL 1$ ; BRAN HI 
2738 015714 004737 oeD224 ISR PC, SVRH70 YES ~Save THE REGISTERS 
2729 015720 904737 913730 1$: JSR PC’ OPT CALL 0 
3740 015724 O00417 BR sc : CHECK OTHER DRIVES 
2741 015726 012714 000113 2S: MOV #113, (RY) RELEASE THE DRIVE 
3742 015732 o00414 BR fe CHECK FOR OTHER DRIVES 
3743 015734 OS2762 190100 OOocIs 28: BIS S8IT1S!BITO6, 16(R2) |; ;SET DAT ERROR F LAG 
2744 15742 904737 020764 ISR PC, EMPTY MPTY T RIVE’S WAIT" QUEUE 
2745 O1S746 004737 O20224 JSR PC’ SVRH70 ;SAVE THE RH O/ RHO] REGISTERS 
hy: 21875 12714 o4Oi1 Ms y 40111, CR) @ PORIVE CL LEAR” sai 
c| 113 y 8 f } IVE 
3748 Biesee BABGhd is é aN R POR CTHER GRIves 
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RMF OR. P SINGLE “DUAL FORT RH70/RMO1 ORIVER (REV 1.0) 
3°51 
3752 015764 116403 OO000i6 SC: MOVB RMAS (RY) RS ; READ “RMAS” 
2752 ft 772 Ci0i4 BNE 6s ;BRANCH IF ANY *ATA’ BITS sET 
3754 01577 04037 o17¢52 JS! »RO.RM ;READ CONTROL AND STATUS REGISTER 
s7SS 015776 000000 RMCS1 
375& 016000 015150 CIs 
3757 016002 106126 ROLB (SP)+ ;1S “IE“=1? 
3758 016004 100405 BMI 1$ :YES, NO ORES TO CHECK 
3759 016006 004037 021144 JSR RO,ES.SAY SAVE THE ADDRESS IN "SESCAPE™ 
3760 O160le 104001 ERROR i ‘REPORT AN ILLEGAL INTERRUPT 
3761 016014 004737 O20342 JSR PC,SET.IE SET INTERRUPT ENABLE 
3762 016020 000207 1$: RT PC : RETURN 
3763 Q160ee OO0SO046 es: CLR - (SP) :PROCESS ALL DRIVES THAT HAVE 
3764 O16024 110316 MOVB R3, (SP) ;AN “ATA”=1 
3765 Q160e6 Q12703 000001 MOV #1,R2 
3766 016032 005001 CLR R - 
767 016034 030316 SC3: BIT R3, (SP) ;ATA=1? 
3768 016036 001005 BNE scs ; YES--BRANCH 
3769 016040 005201 SCY: INC Rl ;MOVE TO THE NEXT DRIVE 
3779 016042 106303 ASLB R2 
3771 016044 001373 BNE SC3 ;BRANCH IF MORE TO CHECK” 
3772 O16046 905726 TST (SP)+ ; LEAN OFF THE STACK 
3773 0168050 000207 RTS ;RET! 
3774 Q16052 105761 O12606 Scs: TSTB DPINT<R1) Pee. Sie THE ORIVE ” 
3775 016056 001402 BEG 1$ :BR NOT 
776 QO16060 000137 016764 JMP $C13 :PROCESS THE DRIVE 
3777 016064 105761 Oleb16 1$: TSTB DPROS(R1) SORT REQUEST OUTSTANDING ” 
3778 016070 001402 BEG gs NOT 
2779 ~016072 000137 016764 JMP C13 T THE Surer mae Ns COMMAND 
3780 016076 105761 012565 2$: TSTB DRVSTAC(R1} C HECK THE DRIVE STATUS 
3781 016102 903025 BGT 5$ sBRANCH IF ONLINE 
3782 016104 105761 012634 TSTB ULDFLG(R1) ;UNLOAD IN PROGRESS? 
2783 016110 O0342e BLE S$ ;BRANCH I 
3784 Ol611le 004737 021060 JSR PC, GETREQ ies T DPB POINTER 
3785 016116 904737 Oe0ee4 JSR PC, SVRH70 ;SAVE THE ee REGISTERS 2 
3786 Olblee 004737 016714 JSR PC,SCle ;SAVE RMOS, RMERI, RMER2, AND RMMR2 
at 16126 761 O12566 TSTB DRYSTA(R1) oats COME ON em ni 
378 Biel se ab 416 BLE 6$ ; NO---BRANCH 
3790 016134 032737 O40000 O12546 BIT #BITL4Y,RMERRS  :WAS THERE AN ERROR? 
279 Rib tis Nate BN 3 :BR IF ERROR 
373, 16144 000137 016616 JM SC1l1 ee 
oe rato hAaeRe 012550 3$: nov RMERRS+2, RS ~~ PICKUP — Ds 
795 Bielee 105761 OleSs6 S$: Ferg RVACT (RI) ae “BetTve" firtHco COMMAND OR ERROR RECOVERY ? 
37% Ol6ib2e 001033 BNE SC6 EITH 
tet C16164 004737 O16714 JSR PC,SCle2 Siu "ats, ont RMER2, AND RMMR2 
37939 016170 105761 012606 £$: TSTB DPINT(R1) : TRYING TO INIT THE DRIVE ? 
3808 016174 001321 BNE sc :BR_IF YES i CK ON MORE DRIVES 
2801 O1617&8 105761 O1eS66 TSTB DRYSTACRI) ; CHE K ON OR VE’S STATUS 
380¢ Olbede 100412 BMI R IF U 
3803 016204 032737 O20000 o1e554 SIT #BIT13,RMERRS+E ; ACORESS PLUG CHANGED ” 
3804 QOl62l2 001013 BNE ;BR IF Y 
S805 Olbe14 Ole74e 000113 MOV #113 “y 4 RELEASE COMMAND 
SE2E Cl&e20 004037 Ce2003e JSR RO,WAT.R WRITE THE COMMAND INTO RMCS1 
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my Ge ee ae Beery Bde 
80 Bt ESSB tEP86 73: MOV (SP),RS !PICKUP (RMAS) BORE aR THE ERROR CALL 
3810 016232 O04037 021144 ISR RO.ES. Say SA VE THE ADDRESS IN ’S 
381 016236 gu0de ERROR 2 *REPORT THE UNEXPECTED SEEN TION 
3812 616240 60067 - BR Sc4 :G0 CHECK FOR MORE ATA’S 
3813 Olse4e Q$: 
3814 O16242 O04037 O21144 JSR RO,ES. SAV ;SAVE THE ADDRESS IN ’SESCAPE’ 
3815 bibe4 o4o0s ERROR 5S ‘REPORT THE ADDRESS PLUG CHANGE 
3816 016250 O00673 BR Sc4 :CHECK FOR MORE DRIVES 
3817 016252 006301 __ -§Cb: ASL R1 i8hg UP 9 BDORESS WORDS 
3818 016254 012761 177777 012660 MOV #-1, TIMER(R1) 0 ME 
3820 DIESEY OBITS? O2106 neR OC, ‘SET, Tee DPB POINTER FROM THE QUEUE 
ky ! 
see) Glesss Sisies RABE GARB ELC RG, 
16274 004037 17652 ISR READ” THe RMO1’S STATUS REG. 
3823 016300 o0001e RMDS 
Seoe O1esbd OISERE SS (SP). RE PUT IT IN 5 
3826 016306 O06126 ROL (Sp)4 PERE a ERROR? 
3827 016310 100407 MI I$ r ERROE 
3828 Ol63le 105761 o1esse STB  ORVACT(R1) BRIE RIVE’S STATE 
3829 Oi6316 003137 BGT SCll ‘BR IF DRIVE active WITH ORDER 
3830 016320 OS2762 100210 oncols BIS BBITIS'BITO7!BITOS,16(R2) ;INFORM USER OF ERROR RECOVER COMPLETION 
3831 016326 000476 BR Sc 
3832 016330 004037 017652 18: JSR RO,RD.RM ;READ ERROR REGISTER #! 
3833 016334 000014 RMERL 
3834 016326 O1&SEE Sc 
3835 016340 O1e605 MOV (SP)+,R5 :AND SAVE IT IN RS 
3836 018342 004737 o20224 JSR pc SVRHZ :SAVE RH70/RMO1 REGISTERS 
2837 O16346 012746 OO01!1 MOV #i11,-(SP) : ISSUE A DRIVE CLEAR 
3838 016352 004037 920032 JSR RO, WRT. RM 
3839 016356 o0c000 RMCS1 
3840 016360 O16S66 Sc 
3841 016362 006105 Scea: ROL RS ;WAS “UNSAFE” CONDITION =17 
3842 O16364 100406 BMI 1$ :BRANCH IF YES 
3843 O16366 005702 TST Re :ANYTHING IN QUEUE ? 
3844 016370 001447 BEG SC7 N y 
3845 016372 OS2762 100240 900016 BIS HSITIS!SITO7!81TOS, 16(R2) s INFORM USER OF ERROR 
3846 O16400 000443 BR 
3 4? bibs oo4g3? 017652 18: SR RO,RD.RM ;READ DRIVE STATUS REG. #1 
48 O64 12 MDS 
3849 O16410 O1ESEE SCs 
3850 Ol64l2 O1ieOS MOV (SP). RS ; SAVE RDS IN RS 
3851 O16414 006126 ROL (Sp)4 : "ERR" = 
3852 016416 100011 BPL 2$ BR IF I --UNSAFE CLEARED 
3853 Ol6420 112761 177777 912566 MOVB a-1 gDRVSTACRL) : DRIVE 1S _UN 
854 O164e6 004737 Oe0224 JSR z “SAVE RH70/RMOL REGIST TER S 
65S 016432 052762 110000 ooogls BIS eettisis T12, 16(R2) s INFORM USER OF UNSAFE ERROR 
3856 Ol644O o00423 BR 
2857 Ole442 010000 23: IT neiT12, RS :"MOL" =] ? 
sect ibies TU Sie i Re E 
5S OCle4SO 112761 177777 o1esse MOVB  #-1.DRVACT(R1) ACTIVE ERROR RECOVER 
2860 OlE4SE 112761 O00001 Oleste MOV  #1,ORVSTACRL}  ;ONLINE 


=) 464 1 ASL R 
Ere gi ee Bee C72460 Clzbed nay Mhooon. . TEMER(RL) ;START 39 SECOND TIMES 
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3863 16474 96201 ASR R1 
864 01647 6 016040 IMP scy 
865 O1650e OS2762 100220 ocoodle 3s: BIS #BITIS!'BITO7!B1TO4 16(R2) : INFORM USER OF ERROR 
3866 1651 10506 012556 Sc?: , Re DRVACT(R1) :PRIVE, J 
ra 
seca pikes SRdSe¢ BESSY . 1B ULOFLG(RD HUNCORD TN RROGRESS OR QUEUE” 
3869 016524 003002 BGT 
3870 016526 105061 012634 CLRB te FL LG(R CLEAR UN NLOAD FLAG 
3871 O16532 116164 Ole702 ooools 15: MOVB ATABIY RL), RMAS(R4) CLEAR ATTENTION BIT 
387 O16540 105761 012566 TSTB RVSTA( : THE DRIVE UNSAFE ? 
3873 016544 i 0406 BMI :BR IF IT IS 
3874 016546 O12e746 000113 MOV #113,-(SP) sRELEASE COMMAND 
3875 O1b55e 904037 020032 ISR RO, WRT. RM i ertk THE COMMAND INTO RPCS1 
3559 Bieeen By eeee er Ba FER PP atoress 
oa fie fe OE. He Eien «Suter OS 
3880 pt ees ABT abe BEQ iS OR AN cH 
3881 016574 004737 o21060 JSR PC, GETREO :GET DPB POINTER 
3882 016600 004737 O15050 JSR PC: CI7 sph CESS THE PARITY ERROR 
3883 016604 900402 BR 23 IN 
3884 O16605 004737 15076 1s: ISR PC, ,c178 PROCESS TH THE UNCORRECTABLE PARITY ERROR 
398 O1bbis 105761 Bt Ses4 Stil: TSTB ULDFLG(R1) CHECK. HORE IN PRAtResse ‘ 
3887 O16622 003402 BLE 1$ !BRANCH IF NO ‘ 
3888 016624 105061 012634 CLRB ULDELG¢RL} ;CLEAR UNLOAD FLAG 
3889 016630 105961 Diese 13: €LRB ORVACT(RI) “SET DRIVE IDLE 
3630 16634 136137 O12702 01263C BITB ATABIT(R1),SRCHWT im lzo cn OPERATION FOR 3, 
383 16642 00101 BNE 2$ BRANCH YES 
sea BIEESO pearee ae 000016 ars apt 707, Re) er ae — 
~ 8 b 
1 737 012654 TST VEF Seve REGISTERS? 
Bieees facob BP. 35 t BRANCH TF NO 

Be Bie, A BOT onus ox. Hh ARPT went Ele eT BM! 
3838 pT EeSe t4EtS? Bt oes Boge ae BIC ATABIT(RI) SRCHWT ;CLEAR IMPLIED SEEK SET 
soc 016704 054737 1373 ISR PC T ; START Q’ REQUEST 
3901 016710 137 O1604 IMP sc4 ‘CHECK FOR MORE DRIVES 
3993 Tree bieas? te 1254 — Rov st Seas BERR TE Te FOUR REGISTERS THAT 

ue ht 
3604 Bt 5p 16437 0900149 piged Noy ROS (RA) Ra BPRS i3 SWILL TELL US SOMETHING 
3905 016734 616437 O00042 Ole5s2 MOY RMER2(RY), * RNERRS +4 
3906 O16742 016437 OCO0040 o12e5s4 MOV RMMR2(R4) > RMERRS+6 
3907 O16750 004027 013144 JSR RO,DRVINT’ Te T. THE STATE OF THE ORIVE 
3908 016754 O00491 BR 18° BKE ERRO | 
3303 pez Pe gay 13 A (SP)+ iB eB OFF _O STACK 

4 4 

zat Bt oe pRRS l Be Ge Poe ee THE baat ty ERROR 
3912 O16764 006301 613: ASL Rl SET uP TO ADDRES 5 wORDS 
2913 p1g7 b 761 177777 CL2bE0 MOV #-1, TIMER<R1) ; STOP THE TIMER 
2315 16774 201 ASR RI 
3515 O16776 010164 oooo1c MOY McS2(R4) ‘SELECT THE DRIVE 
2318 17908 ae 1670 ococ1e MOVE a Te RMAS(RY) CLEAR THE ATTENTION BIT 
2317 61701 4 O64 BIT WBIT11, (Ra! ;DRIVE AVAILABLE ° 
2318 217014 968 fade BNE 1$ ‘BR IF AVAILABLE 


Pa 


‘ 
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RMFOR. P11 SINGLE/DUAL PORT RH70/RMO1 DRIVER (REV 1.0) 
3919 017016 006301 ASL R1 
3920 Bose oi Be 023420 012660 MOV #10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
3921 017026 906201 ASR R1 
3922 017030 0433 BR 3$ sEXIT 
3923 017032 15761 012606 1$: TST8 = OPINT(R1) i INITIALIZING THE DRIVE ? 
394 017036 001424 BEQ 2g 
3925 017040 105061 012606 CLRB = DPINT(R1) CLEAR THE INIT INDICATOR 
3926 017044 gongs? 013144 JSR RO, ORVINT :GO_INI 
3927 017050 d00e40 NOP ;DUMMY PARITY ERROR RETURN 
3328 01708e 105761 012566 iste DRVSTACRI) gee ONL INE NE ? ivan? sae 
3550 BI 508 Boevb2 ST Re ; QUEUE ENTRY FOR THE DRIVE 
3931 017062 OO141E BEQ 
3932 017064 004737 021060 JSR TREQ GET DPB_ADDRESS 
3933 017070 OSe2762 140000 og0c1s BIS OBITS) BITLY, recht s INEORN USER THAT DRIVE OFFLINE 
3934 017076 004737 O202c4 JSR PC, SVRH70 ;SAVE THE R 
3935 017102 004737 020764 JSR PC; EMPTYQ :EMPTY THE REQUEST QUEUE 
2936 017106 O00404 Be 
$337 017110 LOSOB1 012616 2s: CLRB DPROS(R1) His THE PORT REQUEST IN INDICATOR 
ee Bibidd Bho: 3 Beas 3S: IMP gka iBrocese BTHER ORTVES 
3941 ;/RMOL TIMER ROUTINE 
3643 ‘va MOV TIME ,.-{SP} ASPED TIME IN ISECONDS ON THE STACK 
; B as ; 
sai ; 1g aS SEALE RHO Fine ROUTINE 
3946 917124 005737 012632 RPTMR: TST ACTDRV ;CHECK “ACTDRV 8 ACTSTR™ 
3947 017130 001030 BNE a3 : IF NON N ZERO EXIT 
3948 017132 112737 000001 012633 MOVE #1, ACTSTR SET “ACTSTR™ 
2949 017140 104412 SAVREG ;SAVE_RO - RS 
2350 017142 005001 CLR Rl :START WITH DRIVE 0 
sees Bi dive Bbe7e3 012660 18: fF Fimer(Ra) ;1S THE TIMER RUNNING? 
3ec4 eats" eae oococ2 012660 SUB (SP), TIMER(R3) tor ge tN E 
Sate Oldies lla . Bey ae BR IF NO SOPTHARE TIMEOUT 
3356 017164 004737 017216 JSR Fc, STO sCALL L SOFTWARE TIMEOUT ROUTINE 
3 8 BiFibe Boban! 2s: FN 1 iAOvE TO TO NEXT DRIVE 
959 017174 005723 TST (R3)+ 
2360 017176 082701 000010 CHP a8. Ri QUT DRIVES? 
sep BL 750M Tovar 3S: ReGREG RESTORE RO - RS 
3963 017206 105037 912633 CLRB = ACTSTR : ZERO ACTIVE SOFTWARE TIMEGUT ROUTINE FLAG 
3964 017212 O1e616 48: MOV (SP)+, (SP) sADJUST THE STACK 
3365 Ci7214 900257 RTS PC ;RETU 
2207 ;SOFTWARE TIMEOUT ROUTINE 
2963 NOTE: THIS ROUTINE MUST GE ENTERED AT PRIORITY & 
2976 OR GREATER 
3373 
2572 Sem: STO . 
2573 ; MOV sDRVNUM, RI ;ORIVE NUMBER 
2974 ; JSR PC, STO ;CALL 
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017509 


004037 


012714 
000010 
017652 


012606 
012616 


012626 
012700 


021060 


012556 
012634 
013144 
012556 


012626 
012700 


177777 


000010 
177777 
012626 
020706 


000916 
012702 


012606 
Oleb1e 
012700 
O17&S2 


000015 
000010 


000016 


012660 


012700 
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STO: 


STOl: 


2$: 


3$: 
4$: 


ST0e: 


RETURN 


30-SEP-76 13:58 PAGE 75 


R1,-(SP) :SAVE RI 
R3'-(SP) :SAVE R3 
RMADR, RY :GET ADDRESS OF “RMCS1” 
Ri, Riese (RH) SSELECT THE ORIY 
RO; RD.R ‘READ "DRIVE STATUS REG” 
(SP)+ -IS “DRY"=1? 
STo2 BR IF YES 
DPINT(R1) s TRYING TO INTIALIZE THE DRIVE ” 
DPROS(R1) OUTSTANDING PORT REQUEST FOR THE DRIVE ” 
ST0e2 BR IF YES 
TRNSWT, R2 PICKUP TRANSFER WAIT QUEUE 
R1, OTUM : TRANSFER U UNDERWAY ON THIS DRIVE? 
:BRANCH IF YES 
REQ -GET OPB ADDR ESS 
AotTis: 61709, 16(R2) ;SET THE ERROR FLAGS 
PC. SVRH7 -SAVE RH70/RMO1L OF FET ERS 
wG1TOS RMCS2(RY) INIT” THE HASS BUS 
DRVACT(RI) sORIV IDLE 
Tnsetete CL Xf HE UNLOAD FLAG 
RI :START WITH DRIVE O 


Ra 
RO, ORVINT sINIT. THIS DRIVE 
TO :PARITY ERROR RETURN 


DRVACT(RI) : DRIVE ADEE, BEFORE THE INIT.? 
TRNSWT , R2 Mea 7B TRANSFER WAIT QUEUE 
DTUW, Ri WAS THERE I/O ON THIS DRIVE? 
jYES--B RANCH 

REQ THE DPB POINTER FROM QUEUE 
apiTis1 61708, 16(R2)_; INFORM USER OF IN 
DRVACT(R1) ;SET DRIVE ACTIVE TO Toe 
UL DFLGCRL) LOAD 


:N 
#-1,TIMER(R3)  ;STOP T HE TIMER 
(R334 *UPDATE THE INDEX 


R1 ; INCREMENT THE DRIVE NUMBER 
#8. ,R1 "LAST DRIVE BEEN CHECKED? 

2s :NO--LOOP 

#-1, OTUW :NO_DATA TRANSFERS UNDERWAY 

TRNSWT ?CLEAR TRANSFER WAIT QUEUE 

BC .CLROUE :CLERR ALL REQUEST QUELES 

RMAS(RY) RS *READ ATTENTION REG 

ATABIT(RL),RS 515 ATTENTION FOR THIS DRIVE UP ? 

STO3 : YES--BRANCH 

DPINT(R1) ; TRYIN TO INTIALIZE THE DRIVE ? 

STO6 :BR S - DRIVE NOT ONLIN 

DPRQS(R1) ; OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
ST07 ‘BR IF YES - NO RESPONSE TO REQUEST 

R1, OTUW ;DATA TRANSFER UNDERWAY FOR THIS ORIVE 


STO] 
RO,RO.RM t YES--CHECK “ROY” 
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RMFOR.P11 
~ 17 
doa bi 7806 
4033 
4034 a7 
4935 17 16 
4036 017520 
4037 017522 
4038 017526 
4039 017530 
4040 017536 
4041 017540 
4042 017544 
4043 017546 
4044 017552 
404S 17556 
4046 017564 
4047 017570 
4048 017572 
4048 017574 
4050 017602 
4051 017604 
40Se 017612 
4053 Oi7616 
4054 017622 
40SS 017624 
4056 017626 
4057 017634 
4058 017640 
4059 017644 
4060 QO17646 
4061 017650 
4062 
4063 
4064 
4OES 
4066 
4067 
4068 
4069 
4070 
4071 
4072 017652 
4072 017660 
4074 017662 
4075 017670 
4076 017674 
4077 017676 
4078 017700 
4079 B1778 
4080 01771 
4081 B77 ob 
408 177 
4083 017724 
4084 ; 017726 
4085 017732 
4086 017736 
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0000 RMCS1 
yeaa STO 
Hoe ee cape 
1Ds7e 012606 STO3: fete BPHT (RL) Hah tiac i ING THE DRIVE ? 
105761 012616 TSTB = OPRQS(R1) i BORT REQUEST PENDING ? 
001446 BEQ NOT 
012763 177777 O12660 1S: MOV #-1, TIMER(R3) {STOP THE TIMER 
000442 3R ST0§ tEXIT 
O73 015150 STOS: ISR Bc cle GO HANDLE THE PARITY ERROR 
105061 012606 STO0b: CLRB  DPINT(R1) sCLEAR THE INITIALIZE INDICATOR 
105061 O1eS66 €LRB = DRVSTACR1) UNIT 0 FLINE 
012763 177777 012660 MOV #-1, TIMER(R3) STOP THE TIMER 
004737 021060 JSR PC, GETREG i Te t. ADDRESS 
005702 TST quest N QUEUE ? 
001424 BEQ ae Fog 
0S2762 140000 o00n16 BIS #BITIS!BIT14, 1eckes | jINFORR THE USER DRIVE NOT AVAILABLE 
0414 BR STOB sEINISH 
12763 177777 O12660 STO7: MOV #-1, TIMER(R3) {STOP THE TIMER 
105061 012616 CLRB = DPROS(R1) ‘CLEAR PORT REQUEST INDICATOR 
004737 921060 ISR PC, GETREQ ; GET DPB ADDRESS 
05702 TST R QUEUE ENTRY FOR DRIVE ? 
691407 BEQ STO9 
12762 100004 OcO01E MOV wgITIS:81T2, acall - INFORM USER OF PORT REGUEST ERROR 
004737 620764 ST08: JSR PC, EMPTY ;CLEAR THE QUEUE FOR THE DRIVE 
004737 O20224 JSR PC’ SVRH70 :SAVE THE REGISTERS 
012603 STO9: MOV (SP)+,R3 | “RESTORE R3 
012601 MOV (SP)+/R1 RESTORE Ri 
000207 RTS Pc : RETURN 
:ROUTINE TO READ A RH70/RMO1 REGISTER 
CALL 
: ISR RO,RD.RM ;G0 READ A REGISTER 
: INDEX "REG. INDEX FROM BASE 
: ERRADR ; ERROR ADDRESS--PROCESS ERROR STARTING 
} AT THIS ADDRESS 
: RETURN ICONTENTS OF REG. IS ON THE STACK 
013737 012712 O20020 AD.RM: MOV MCPEMX,RD.RM2  ;MAX. RETRYS ALL OMED 
011646 ; MOV (SP), -tSP) :SAVE RO FOR RETURN 
013737 012714 017676 MOV RRAOR, RD.ADR § :FORM THE DESIRED AD ODRE 
062037 017676 ADD (RO)+/RD.ADR § :USING THE BASE AND THE INDEX 
013727 RD.RM1: MOV a(PC)+,(PC)+ | :READ THE DESIRED REGISTER OF THE RMC1 
0060 RO.ADR: .WORD O ADDRESS IS FORMED HERE 
000000 RD.WRD: .WORD 0 ;REG. CONTENTS PUT HERE 
013766 017700 oo00ce MOV RD.WRD, csp) RETURN IT TO THE USER 
013746 012714 MOV RMADR, ~(SP) *PUT THE ADDRESS ON THE STACK 
be? 16 00010 AD ann, (SP) :FORM THE RODRESS_OF OF RMCS2 
736 010000 BI BITlo;a(SP)+ CHECK THE 'NED’ BIT 
001937 BNE RD.RM3 :BR IF DRIVE NON-EXISTENT 
017746 172762 MOV GRMADR,-(SP)  ;READ RMCS1 
032716 de0000 BIT #BIT13, (SP) ID MCPE SET? 
ooioe BNE 1$ ‘BRANCH IF YES 
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01774 
BiZed 


poonse 


OONOs? 


128i 


000200 


021144 
012700 


040000 


040000 


12714 
20014 


Ole7ie 
o0000e 


020122 
000150 
017652 


177770 
020121 
012714 


012714 
o1008 


017652 


020014 


020206 
020120 


020120 


020122 
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BR 


1$: 


3$: . WORD 
RD.RMe: . 
RD.RM3: MOV 
RD.RM4: RTS 
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(SP)+, (RO)+ 
Aer RM 
RO,ES.SAV 
Suu 

ag 

wITIM, (SP) 
Fs 

(SP)+ 

RO. RNS 
#BIT14, (SP) 
(SP) 
RMADR, 3$ 
(SP)+,a(PC)+ 
(PC)+ 

3 

ake 
(834° Cop 
RO 


;ROUTINE TO WRITE A REGISTER 


: CALL 
: MOV 
; JSR 

: INDEX 
; ERRADR 
: RETURN 


WRT. RM: oe 


iat rr: bY 


WRT.WD: Hoe 
WRT. AD: 1s R 


DATA (SP) 
O,WRT. 


MCPEMX, WRT. R2 
e(SP T.WD 


) WRT 


- (SP)4) (SP) 


(RO), TART. AD. 
#150,WRT. WD 
,RD.RM 


(SP) 
#tC7, (SP) 


(SP)+, rig WO+1 


RMADR, WRT .AD 
(PC) +, Ft 


RMADR , (SP) 


ont (SP) 
ress S?6p i+ 


RO, RD. RN- 


eae FOR RETURN 


THE pOORE RR AON IN *SESCOPE’ 
‘Rep RT_“MCPE” ERROR 
; DATA TRANSFER ENDERWAY? 


CH 
‘ YES--CLEA N OFF THE STACK AND 
; TAKE THE Ficbee hy ERROR EXIT 
;CLEAR “MCPE" BY SENDING A "1" TO “TRE” 
POSITION BEFORE WRITING 
‘FORM ADDRESS OF HIGH BYTE 


ADORE THE HIGH BYTE OF RMCS1 
i BXCEEBED™ max SFeTRYS 


BROAN IF NO 
FATAL ERROR EXIT 


;DATA 70 BE LOADED ON THE STACK 

‘CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
; INDEX OF_THE ores er oe BE LOADED 
ADDRESS TO RETURN TO ON AN ERROR 

ERROR FREE RETURN 


;MAX_RETRYS ALLOWED 

:SAVE THE WORD TO WRITE 

; ADJUST THE STACK 

;GET Sf ja SAS TO BE WRITTEN 


Hoge 1 
THE COMMAND FOR DATA TRANSFERS? 


‘gs--pote| Arora sees Bee? Gitta © PSE 


THE COMMAND BEFORE SENDING IT TO 
: THE RH70/RMOL 


COR Te RTS SEATS OTS AES. 
Bae oe ae 


ESS ON THE STACK 
;FORM ue 


: CHE fi mOREBTS % — 


F DRIVE NON-EXISTENT 
‘CHECK FOR PARITY ERROR ON WRITE 


SEG 0077 


i rae RMO1_ FORMATTTER PROGRAM 


020150 


020222 


020240 
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;BRANCH IF “PAR=0" 
; PICKUP pre MOEX 


a THE Ri 


REG. INDEX 

RETURN TO THIS ADDRESS _ON ERROR 
SAVE THE ADDRESS IN 
;REPORT THE PARITY ON Sat ERROR 
;DECRENENT THE ERROR COUN 


NTER 
iF y's FINISHED 
TAKE THE PARITY ON WRITE” ERROR EXIT 


iE 
;ADJUST FOR ERROR FREE EXIT 


;ROUTINE TO SAVE THE RH70/RPO4/S/RMO1 REGISTERS AS PER DPB+14 


020214 WRT .R3 
032726 O00010 BIT #81T03, (SP)+ 
001420 BEQ WRT.R 
016037 177776 oe0172 MOV HEROD 1$ 
004037 017852 JSR RO,RD.RM 
oo0000 1S: WORD OQ 
020214 WRT.R3 
004037 021144 JSR RO,ES.SAV 
104004 ERROR 
00327 DEC (PC)+ 
000003 WRT.R2: .WORD 
002342 BGE WRT.R1 
005726 TST (SP)+ 
011000 WRT.R3: MOV (RO). RO 
OGo401 BR RT.R 
005720 WRT.R4: TST (RO)}+ 
po002c0 WRT.RS: RTS RO 
;CALL 
: MOV SOPBNUN R2 
: ISR C, SVRH?70 
104412 SVRH70: SAVREG 
005702 TST Re 
001430 BEQ 4 
013704 012714 MOV RMADR, RY 
111264 000010 MOVB (RE) RMCS2(R4) 
16203 000014 MOV 14(R2) ,R3 
001433 BEQ St 
005037 020304 CLR 3$ 
023727 020304 oo00e2 1S: CMP 3, #RMDB 
001006 BNE 
032764 coo200 00010 BIT WBITO7,RMCS2(R4) 
001002 BNE 
905023 CLR (R3)+ 
000405 BR 4 
004037 017652 2s: JSR RO, RD. RM 
900000 33: .WORD O 
020332 S$ 
012623 MOV (SP)+, (R3)+ 
023727 020304 OOOD4 4S: CMP 33, #RMECe 
001406 BEQ 6$ 
062737 oco0002 920304 ADD #2, 35 
000751 BR 1$ 
004737 o1sos0 S$: SR PC,CI7 
104413 6S: RESREG 
000207 RTS PC 


;DPB_ POINTER TO Re 
SAVE THE DRIVES REG’S 


;SAVE RO - RS 
;QUEUE ENTRY FOR THE DRIVE ? 
;BR IF NONE 


; SELECT 


DRIVE 
-GET THE ERROR TABLE POINTER 
‘EXIT IF NO ADDRESS 
“COUNTER & POINTER 
; REACHED Rote BUFFER REGISTER ? 

"OR? wSET * 

BR IF SET 
:STORE RMDB AS ZEROES 


: CONTINU 
READ THE SELECTED REGISTER 
R ae 


;REGISTE 

ERROR RETURN ADDRESS 

STORE THE REGISTER CONTENTS 
REACHED THE END ? 


sBR IF YES 

: INCREMENT THE REGISTER INOGX 

:CONTINUE READING THE REGISTERS 

s PROCESS pe UC ORREL TABLE PARITY ERROR 


oe TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
;DRIVE NUMBER TO R1 
: SET o IE” 


- 


: MOV #ORVNUM, R1 
} JSR PC, SET. fE 
: RETURN 


SEG 0078 


ey 


t 
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4199 020342 O10446 SET. IE: MOV RY (SP) :SAVE RY 

4200 020344 013704 012714 MOV RMADR ‘PICKUP ADDRESS OF RMCS1 

4201 020350 010164 009010 MOV ft Ansa (RM) ‘SELECT DRIVE 

4202 020354 011446 MOV (R4),-(SP) ‘READ RMCS1 

4203 020356 052716 o40000 BIS sBITh, (SP) !SET THE “TRE” BIT OF THE WORD READ 

4204 020362 000316 SWAB —s- ( SP) ;ADJUST FOR DATO 

4290S 020364 112714 o00100 MOVB eet 06, (RY) SET "Te" 

4206 020370 0320764 010000 oo0010 BIT #BIT12;RMCS2(R4)';IS "NED" =1? 

4207 020376 001002 BNE 1$  ¥€8--CLEA EAR “TRE” 

4208 Oe0400 005726 TST (SP)+ ‘CLEAN OFF THE STACK 

4209 Oe0402 o0040e2 BR 

4210 O2O404 112664 o00001 1S: MOVB  (SP)+,1(R4) : CLEAR TRE" 

4211 O20410 O12604 25: MOV (SP)+/R4 RESTORE R 

Hele 020412 o00207 RTS Pc : RETURN 16. CALLER 

4214 QUEUE COUNT 

4215 020414 000 QcnT: Te oO sDRIVE 0 

4P16 O20415 900 BYTE 0 DRIVE 1 

4217 Oe0416 000 BYTE 0 DRIVE 2 

4218 020417 000 BYTE 0 :DRIVE 3 

4219 Oe0420 000 BYTE 0 DRIVE 4 

4220 O20421 000 "BYTE DRIVE S 

4221 Oe04e2 000 "BYTE O DRIVE 6 

Hee 020423 000 "BYTE O DRIVE 7 

Hees QUEUE INPUT POINTERS 

4226 O20424 O20506 QINPT: .WORD  QDRVO DRIVE 0 

4227 Oe0426 Oe0S26 -WORD QDRV1 ‘DRIVE 1 

4228 Oe0430 Oe0S46 "WORD QORV2 , DRIVE 2 

4229 020432 O20566 “WORD  QDRV3 DRIVE 3 

4230 020434 020606 “WORD  QDRV4 ‘DRIVE 4 

4231 020436 Oe062e6 “WORD  QODRVS DRIVE S 

4232 O20440 Of0646 -WORD  QDRV6 DRIVE 6 

4233 020442 O20666 “WORD  QDRV? ‘DRIVE 7 

He35 QUEUE OUTPUT POINTERS 

42937 Oe0444 O20S506 QOUTPT: .WORD  QDRVO :DRIVE 0 

4238 OcO446 Oe0S26 -WORD  QDRV1 ‘DRIVE 1 

4239 Oe04SO Oe0s4E "WORD  QDRVE DRIVE 2 

4P4YD Oe0452 Oe0Sb6 “WORD  QDRV3 DRIVE 3 

4241 O20454 OeDe0s "WORD  QDRV4 DRIVE 4 

4yoyD 020626 “WORD  QDRVS DRIVE S 

4243 O20460 Oe0646 "WORD  GDRV6 :DRIVE 6 

Hu O20462 O20666 WORD  QDRY7 DRIVE 7 

4246 020464 O20S506 QSTART: .WORD QDRVO ;DRIVE 0 START ADDRESS a 

4247 O20466 Oe0S526 QSTOP: [WORD QDRV1 ‘DRIVE O STOP ADDRESS 8 DRIVE 1 START ADDRESS 

4248 020470 Oe0s546 "WORD  QDRVE :STOP DRIVE 1--START DRIVE 2 

4249 920472 Oe0SbE WORD  QDRV3 :STOP DRIVE 2--START DRIVE 3 

4250 C20474 OP0b06 WORD  QDRV4 :STOP DRIVE 3--START DRIVE 4 

4251 O20476 Oe0b26 “WORD  QDRVS ‘STOP DRIVE 4--START DRIVE 5S 

4252 020500 OeDE4E “WORD  QDRV6 :STOP DRIVE S--START DRIVE & 

4253 020502 ODEs “WORD  QDRV7 ;STOP DRIVE 6--START DRIVE 7 


4254 020504 020706 -WORD QTERM STOP DRIVE 7 


” 


t 
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4255 
4e56 ;DRIVE REQUEST QUEUES 

¢ 
4258 020506 000010 QORVO: .BLKW 10 
4259 020526 O00010 QORV1: .BLKW 10 
4260 020546 000010 QORV2: .BLKW 10 
4261 O20566 O00010 QORV3: .BLKW 10 
4262 020606 O00010 QORV4: .BLKW 10 
4263 Oe0626 o00010 QORVS: .BLKW 10 
4264 020646 000010 QORV6: .BLKW 10 
4265 020666 000010 QORV7: .BLKW 10 
Hebe 020706 QTERM=. 

/ 
ice8 :ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
4270 CALL 
4271 : JSR PC, CLRQUE 
4273 020706 104412 CLRQUE: SAVREG sSAVE RO- AS 
4274 020710 Ole7be o20414 MOV #QCNT, R2 ; ZERO THE QUEUE COUNTS 
4275 020714 O0S022 CLR (Re)+ :DRIVES O 8 | 
4276 020716 O0S022 CLR (Re)+ ‘DRIVES 2 8 3 
4277 020720 o05022 CLR (Re)+ ‘DRIVES 485 
4978 O20722 O0502° CLR (Re) :DRIVES 6 & 7 
4279 020724 012703 op0010 MOV :MOVE THE STARTING 
4280 020730 012701 O20464 MOV ree ther Rl !ADDRESS OF THE QUEUE INTO 
4281 020734 Olel22 18: MOV (R1)+, (Re)+ :THE QUEUE INPUT POINTER 
4282 020736 005303 DEC R3 
4283 020740 001375 BNE 1$ 
4284 020742 012702 o00010 MOV #8. .R2 ;MOVE THE STARTING RODRESS 
4285 020746 012701 Oe0464 MOV #QSTART,RI :0F THE QUEUE INTO THE 
4286 O20752 Olel22 23: MOV (R1)+, (R2)+ :QUEUE OUTPUT POINTER 
4287 020754 0905303 DEC R3 
4288 020756 001375 BNE 2 
4289 020760 104413 RESREG :RESTORE RO - RS 
4230 020762 000207 RTS PC 
He9e ;EMPTY THE QUEUE SPECIFIED BY R1 
4294 CALL 
4295 : MOV DRVNUM, R1 :DRIVE NUMBER TO RL 
ica ; JSR PC, EMPTYG 
4298 020764 105061 020414 EMPTYG: CLRB  QCNT(R1) ;CLEAR NUMBER OF ITEMS IN QUEUE 
4299 020770 006301 ASL 1 
4300 020772 O16161 oc2o04e4 o2o444 MOV QINPT(R1),QOUTPT(R1) ;SET OUTPUT GUEUE POINTER=INPUT POINTER 
43201 O21000 906201 ASR Rl 
420 d2100e o00207 RTS PC 
4308 :ROUTINE TO PUT A REQUEST IN QUEUE 
4306 : CALL 
4307 : MOY wORYNUM, R1 ;DRIVE NUMBER 
4308 : MOY R2° ROORESS OF PARAMETER BLOCK 
4309 : JSR aD PBRVGUE GO PUT REQUEST IN QUEU i 
4316 : RETURN :RETURN HERE IF QUEUE I 


Lax J 
: 


MD-11-DZRMA, RNOL FORNATTTER PROGRAN | MACYI1 27(732) 30-SEP-76 13:56 PAGE 81 SE9 2081 
RMFOR. P11 SINGLE/DUAL PORT RH70/RMO1 DRIVER (REV 1.0) 
4311 : RETURN2 sRETURN HERE IF REQUEST IS IN QUEUE 
4313 021004 122761 GOOD1O C20414 DRVGUE: CMPB &#10,QCNT(R1)  ;IS QUEUE FULL? 
4314 021912 O014e1 BEQ 2g ‘BR IF YES-TAKE RETURN 
4315 021014 10526: o2o414 INCB  QCNT(R1) INCREMENT QUEUE COUNT 
4316 021920 O0630i «ASL R 
4317 O21022 010271 o20424 MOV: Re, AQINPT(RL) :PUT THIS REQUEST IN QUEUE 
4318 021026 062761 OO00002 o20424 ADD : INPT(R1) UPDATE THE QUEUE POINT 
4319 O21034 O26161 O20424 O2d4E6 CMP STAPTCRL). agTopcRiy« - TIME 19 RESET THE ES INTER 
4320 021042 001003 BNE 1$ 
4321 O21044 O16161 O20464 O20424 MOV de TART (RL), QINPTIRID *YES--RESET POINTER 
4322 O210Se 006201 1S: ASR R 
4303 21054 905720 TST (RO)+ TAKE RETURN 2 
4324 021056 ood2c0 2$: RTS RO RETURN TO USER 
4386 sROUTINE TO GET THE “DPB™ ADDRESS OF NEXT REQUEST IN QUELE 
4358 : CALL 
4359 : MOV #ORVNUM, R1 :DRIVE NUMBER TO R1 
4339 : ISR PC, GETREG :GO GET THE REQUEST 
4331 : RETURN :R2="DPB" ADDRESS OF THE REQUEST 
4332 : !Re=0 IF NO REQUEST IN GUEUE 
4334 021060 oosooe GETREQ: CL R2 
4335 021062 105761 o20414 TSTB = QCNT(R1) :1S THERE ANY REQUEST IN QUEUE? 
4336 021066 001404 BEQ 2g :NO---BRANCH 
4337 021976 006301 13: ASL RI 
4338 021072 017102 o20444 MOY JOQOUTPT(R1),R@ ;PICKUP “DPB” POINTER FOR THIS DRIVE 
4339 021076 006201 ASR RI 
4340 021100 900207 23: RTS PC RETURN TO USER 
43¥e :ROUTINE TO “POP” THE REQUEST FROM QUEUE 
4344 : CALL 
4345 } MOV ARVN RI :DRIVE NUMBER TO R1 
4346 : JSR , POPQUE :CALL TO REMOVE REQUEST 
447 : RETURN !R2=ADDRESS OF DPB REMOVED 
W349 O21192 105361 O20414 POPQUE: DECB QCNT(RI) sDECREMENT QUEUE COUNT 
4350 021106 006301 ASL 
4351 O21110 017102 oeo444 MOV aQouTPT RL) R2 <:GET THE “DPB” POINTER 
4352 021114 062761 OO000e o2o444 ADD PT(RL} :UPDATE THE QUEUE POINTER 
4353 O2ll22 Of6161 O20444 Oeo4es CMP O5UTPT CRI) GSToPiR1) :TIME TO RESET THE POINTER? 
4354 021130 901003 BNE - NO--BRANC EX] 
4355 O21132 O16161 oe0464 oc20444 MOV GSTART(R1),QOUTPT(RI) :YES--RESET THE POINTER 
4356 021149 O0¢291 18: ASR Ri . 
4367 Geli4¥2 900257 RTS PC ;RETURN TO USER 
4359 :ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE’ WHEN THE DRIVER 
4360 :REPORTS AN ERROR DIRECTLY. . 
4362 : CALL 
4353 : JSR RO,ES. SAY 
4365 : ERROR N THE ERROR CALL 
4265 : RETURN THE RETURN IS PAST THE ERROR CALL 


eae RMO1 FORMATTTER PROGRAM 


012037 021160 
013746 OO1160 
605037 o01is0 


012637 901160 
o00259 


- 5 

1) 

oO 

Oo 
pepo = 
ruru 


furufu 
> +0 bb pe 


bs pe he pe 


O4744O 043106 O44514 
4389 O21176 O42516 
40 047117 O44S14 


000 
047516 O2012e4 
4384 Q2l216 O47101 O&1046 030115 


047040 052117 OS0040 
4387 021234 ONeREs O42Se3 O52i16 


047125 040523 

000 
030120 000064 
000 


4395 021300 040524 om 006S23 

O4e0le O44S2e 

000 

020057 900 
900 


D40 
4405 Asi ace 047105 O42524 Oe20l22 


44i4 021430 O42e522 eg OSe116 
051104 053111 


4422 SE!504 O20l1e CHEE22 O304E0 


MACY11 27(732) 
RME OR SINGLE/DUAL SORT RH70/RMO1 ORIVER (REV 1.0) 


ES.SAV: MOV 


1$: 


07 | 


30-SEP-76 13:58 PAGE 82 / 


;GET THE ERROR CA 
s SAVE THE ADDRESS tN ‘SESCAPE” 
CLEAR THE ESCAPE RETUR 

THE ERROR CALL IS MOVED HERE 
eso THE ESCAPE ADDRESS 


sy RRERESRAR REALE REALL AERA LAA REAR A LARA RL ARAL E SLA AREL FL AAL ALLEL RFLEE 


. SBTTL 


UNTOFF : 


UNTON: 
NOTRM: 


NOTPRS: . 


NOTSAF: . 


LI : 
ENTAOR: 


MOFFLN: . 


MDRNP : 


MERI1: 


MNRMOi: . 


D 
w 


DDOPYPYDDYDVMYD 
ONIWNUWIWIW 
QONOOOO OE 
Abate aa 


Lo 


NINHNNNN 


TELETYPE MESSAGES 
-ASCIZ 
~ASCIZ 
~ASCIZ 


“4 OF FLINE/ 

/ ONLINE’ 

a NOT AN RMCla 

/ NOT PRESENT / 

/ UNSAFE 

/RPOY/ 

/RPOS/ 

/RMO1/ 

“UNIT STATUS/<CR:> <LF><LF> 


{CR><LF>/DRIVE: / 


"ea : 
“ENTER ADDRESS LIMITS: *<CR><LF> 


/ DRIVE OFFLINE/<CR><LF> 


/ DRIVE NOT PRESENT/<CR><LF> 
¢ DRIVE NOT AVAILABLE’<CR><LF> 


@ DRIVE NOT AN RMOLA<CR><LF> 


SE: 


-~_ --——- 


—~s wU8E 


MD 
RMEO 


ae RMO1 FORMATTTER PROGRAM 
TELETYPE MESSAGES 


022174 


ocso1s 
i) 


4 
0S2ie3 
O43516 


c40440 


024S06 
046522 


051124 


043516 
O4O44O 


O425e4 


020116 
044524 
051i04 


MACYi1 27(732) 


MUSDR: 


MSELD: 
MMODE: 


MFORMT: 


MHECK: 


MORMAT: 


MSIZE: 


MSEC2e2: 


MSEC20: 


BADENT: 


MADRER: 


~ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCII 


~RASCIZ 


Ar 
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* DRIVE UNSAFE/<CR><LF> 


/ SELECTED/ 


<CR><LF>/PROGRAM MODE (C OR F): / 


/ FORMAT & VERIFY’ 


“CHECK ONLY/ 
/FORMAT & VERIFY/ 


(CR><LF><LF>/OPERATE IN 32 SECTOR MODE (Y OR Ni ? / 


OPERATION WILL BE IN 32 SECTOR (16 BIT) MODE/<CR><LF> 


“OPERATION WILL BE IN 30 SECTOR (18 BIT) MODE“<CR><LF, 


“INVALID ENTRY/<CR><LF> 


“ENDING DSK ADRS MUST BE EGUAL TO OR GREATER “<CR><LF> 


“THAN STARTING ADRS“<CR><LF> 


SEG C083 


MO- we RMO1 FORMATTTER PROGRAM 
RMF OR TELETYPE MESSAGES 


Oeeb02 


006523 


D072 


000012 


O42Se3 


051117 


052105 
040524 


052103 


024462 
OSSO4C 


020124 
020072 


052123 


052105 
042510 
046517 
026105 


020114 


051511 


MACYL1 276732) 


MSELF: 


MPATD: 
MSFOU: 


MSCHK: 


MFCMPT: 


MCCMPT: 


NUMERR : 


ADDRTS: 


5p RRRERAALER ERA AREA ALE ER ARARALE RA LAAA ARAL ELA AE RFLARELARAARAF ALTE 


-ASCIT 


-ASCII 


-ASCIT 


sASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


Ky 


t 
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/SELECT DATA PATTERN (BY ENTERING 0,1 


‘ (0) ZERO'S 


/ (2) AB AND CO/<CR><LF 


/ (2) WORST CASE: / 


“WORST CASE’ 


AND ONE'S /< 


(CR><LE> 


OR 2)/7<CR><‘LF> 


(CR><LF><LF>/STARTING FORMAT ON DRIVE 


<OR><LF><LF> “STARTING CHECK ON DRIVE / 


<CR><LF><LF> “FORMAT COMPLETE, 


(CR><LF><LF>/CHECK COMPLETE, 


“TOTAL ERRORS OETECTED: 


“PRESENT ADDRESS IS: 


-SBTTL ERROR MESSAGES 


5 RERRARLAA ELLA RAERE RAE AEERAA ARAL RA FERARALARLLAAATLARALAATLLARE 


ff 


/ 


/ 


w 


my 


. 


“Foy 


mw 


MD-11-DZRMA, RMO1 FORMATTTER PROGRAM 
ERROR MESSAGES 


RMFOR.P11 


022605 
Oeeble 
022620 


C232b 


O47 111 
OS 


O4E114 


30510 


051105 


OS2116 
C&1105 


0 
042526 
O44514 


44523 


051117 
051117 


047522 


047522 
042057 


MACYL1 27(732) 


EMI: 


EMe: 


EM3: 


EM4: 


EMS: 


EME: 


EM10: 


EM11: 


EMle: 


EM13: 


EM14: 


EMIS: 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


° 


t 
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iw 
my 


«> 


/RH11 INTERRUPT OCCURRED (RMAS=0) / 


“UNEXPECTED ATTENTION OCCURRED/ 


/MASSBUS PARITY ERROR (MCPE=1)/ 


/MASSBUS PARITY ERROR (PAR=1) / 


“ADDRESS PLUG CHANGE BIT SET/ 


/RH11 DION'T RESPOND TO ADDRESSING~ 


/ORIVE OFFLINE’ 


“PERSISTENT DRIVE UNSAFE ERROR’ 


“/UNCORRECTABLE MASSBSUS PARITY ERROR’ 


“SOFTWARE TIMEOUT / 


“DRIVE UNSAFE ERROR’ 


@CONTROLLER DRIVE ERROR DURING WRITES 


id 
oO 


co 


uw 


— 
JO? 
“D- ARI RMO! FORMATTTER PROGRAM MACY11 27(732) 30-SEP-76 13:58 PAGE 86 seo cose 
RMFOR.P ERROR MESSAGES 


4591 O23274 O44See O42Se& 042440 


023316 2111 
4595 023324 O47503 OS2116 O47Se2 EME: .ASCIZ @MCONTROLLER/DRIVE ERROR DURING WRITE CHECK® 


0233 0415 
46 Be3s7e pars welled 42511 EM17:  .ASCIZ @RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE? 


023450 
4610 BSaure O4YOSO4Y O40524 O4244O EMe0: .ASCIZ @DATA ERROR DURING WRITE CHECKS 


4615 Qe3Si2 047503 periae O47Se2 ~EM21: .ASCIZ @MCONTROLLER/DRIVE ERROR VERIFYING HEADERS® 


4517 023526 O44S22 o4e44o 
4618 023534 OSile2 OSI117 053040 
4619 Oe3s42 051105 043111 O44531 
4620 023550 043516 O44040 O40505 
4621 023556 4 051522 00 — 
Woee 029563 110 O4OS0S OYeS04 ENe2: .ASCIZ HEADER CONPARE ERROR VERIFYING HEADERSS 
Weed O53675 OStib] Gecios Bello 
023604 047522 O20122 o4eSe6 
Q23612 o44522 O47111 
4627 O23620 020107 042510 O42I01 
46 051105 00123 phe AA Re rind Be 
4629 023632 054503 O44514 042116 EMe3:  .ASCIZ @CYLINDER FIELD IN HEADER IS NOT CORRECTS 
4630 023640 051105 04 042511 
4631 023646 042114 O44440 020116 .- 
4632 023654 10 O42101 051105 
O23662 OW44O O20123 047516 
36 02 708 Os1i eli 20105 ENe4: .ASCIZ WRITE CHECK ERRORS 
4637 023710 944193 041505 92011 
4638 Oe3716 051105 O47S22 UOoIz2 
ea sy RRRKRAAAAAAAL AAA AL ELLA SELES RASTA RAAELEAALAAARERRERRERRARLAAAARAL 
4E41 . 


DH1: -ASCIZ /RMAS RMCS1 RMERi RMER2 RMDS RMOC RMD’ 


E4E 023754 O4e115 CO4Se3 


MD-11- -ozRt, RMO: FORMATTTER PROGRAM 
RMFOR.P1l ERROR MESSAGES 


oN 051011 
053111 


042115 
020105 


042526 
051122 
054503 


020040 
De4454 O50040 020103 


MACY11 27(732) 
DHe: ~ASCIZ 
DH3: -ASCIZ 


DH4: -ASCIZ 
DHE: -ASCIZ 
DH10: .ASCIZ 
DHiOA: .ASCIZ 
DH108: .ASCIZ 
DHi7: .ASCIZ 


fn 


30-SEP-76 13:58 PAGE 97 
/DRIVE RMDS RMERL RMER2 RMAS  RMCSI/ 

/ORIVE REG ADR DATA RMCS1 RMER1 RMER2/ 

JORIVE REG ADR GOOD SAD RMCS1 RMERI RMERZ/ 
/RH ADDRESS/ 

/DRIVE ERR PC RMCS1 RMCS2 RMDS MERI RMMRE- 
/RMECL RMEC2 RMWC RMBA  RMDA RMAS  RMLAY 
/RMDB oRMMR  RMDT MSN  RMOF CYLINDER TRACK/ 
/DRIVE ERR PC CYLINDER TRACK SECTOR- 


MD-11-D2RMA, RMO1 FORMATTTER PROGRAM 


RMFOR.P11 


024462 
dou? 

4476 
024504 


0eS1 
025140 


ERROR MESSAGES 


044514 


0 
020040 


042116 


046522 
041527 


051115 


042440 
Oe 


020040 


04150S 
020040 


006504 
042526 


020040 


MACY11 27(732) 


DHeO: 


DH20A: 


DHe0B: 


DHe0C: 


DHe3: 


DHe4: 


-ASTIZ 


~ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


Law J 
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‘DRIVE ERR PC CYLINDER TRACK SECTOR/ 


/RMCS! RMCS2 RMOS RMERL RMER2 RMMR2 = RMECL #8 RMECe/ 


/RMWC RMBA RMDA RMAS RMLA RMOB RMMR 1 RMOT/ 


“/RMSN RMOF CYLINDER TRACK/ 
/ EXPT'C/<CR><LF> 


/DRIVE ERR PC CYLNDR ACTUAL HEADER’ 


/ MEMORY DISK/<CR><LF> 


MO- 2 Ww yr RMO1 FORMATTTER PROGRAM 
en MESSAGES 


RMFOR.P 


025146 


OeS242 
025250 


025256 
025264 
025272 
025274 


OeSSte 


042040 


001276 
prise 


ssgeseeseese 


001330: 
001306’ 


001322 
00135 
001310 


ir 


020040 
051117 
0S1511 


O44S22 


052101 
001306 
001314 
012546 


001306 
001116 
001320 


001354 
001314 


* 001332 
001340 


001116 
001252 


001340 


001116 
025724 
001116 
00125e 


001316 
001346 


001354 
001312 


046440 
020131 
006513 


042526 
0 


020040 
000101 


001322 
001342 
012550 


001322 
001306 
001322 


001310 
001324 


001334 
001270 


001270 
001270 


001320 
001350 


061314 
001330 


001270 
025732 


001270 
001124 


001320 
001350 


001314 


MACY11 27(732) 


DT1: 


DTe: 
DT3: 
DT4: 


DTE: 


DT10: 


DT17: 
DT20: 


DT23: 
DT24: 


-ASCIZ 


. WORD 


. WORD 
- WORD 
. WORD 


. WORD 
- WORD 


. WORD 


. WORD 


- WORD 
- WORD 
- WORD 


. WORD 


. WORD 
- WORD 
. WORD 


- WORD 


. WORD 


- 


t 
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/DRIVE ERR PC CYLNDR TRACK SECTOR DATA DATA/ 


ATTN, RM. REG, RM. REG+14,RM.REG+40, RM. REG+6, RM. REG+34, RM. REG+6 


DDRIVE, RMERRS, RMERRS+2, RMERRS+4, ATTN, RMCS1 
DDRIVE,RD.ADR,RD.WRO,RM.REG,RM.REG+14, RM. REG+40 
DDRIVE,WRT.AD,WRT.WD,RD.WRD,RM.REG,RM.REG+14, RM. REG+40 

SRMADR 

DRIVE, SERRPC,RM.REG,RM.REG+10,RM.REG+12,RM.REG+14, RM. REG+42 

RM. REG+44, RM. REG+46, RM. REG+2, RM. REG+4, RM. REG+6, RM. REG+16, 8M. REG+20 


RM. REG+22, RM. REG+24, RM. REG+26, RM. REG+30, RM. REG+32,0S.CYL,DS. TRK 


DRIVE, SERRPC,OS.CYL,DS. TRK, SAVSEC 
DRIVE, SERRPC,DS.CYL,DS. TRK,SAVSEC 
RM. REG, RM. REG+10, RM. REG+12, RM. REG+14, RM. REG+40, RM. REG+42, RM. REG+44, RM. RE 


RM. REG+2,RM.REG+4, RM. REG+E, RM. REG+16, RM. REG+20, RM. REG+22, RM. REG+24, RM. RE 


RM. REG+30, RM. REG+32,D0S.CYL,0S. TRK 
DRIVE, SERRPC , BUFP, RBUF , RBUF +2 
DRIVE, SERRPC,DS.CYL,DS.TRK,SAVSEC, $GDCAT, RM. REG+22 


RM. REG, RM.REG+10,RM.REG+12,RM.REG+14,RM.REG+40, RM. REG+42, RM. REG+44, RM. RE 


RM. REG+2,RM.REG+4, RM. REG+E, RM. REG+16, RM. REG+20, RM. REG+22, RM. REG+24,RM.RE 


MD- or RMO1 FORMATTTER PROGRAM 


RMFOR.P 


Nw 


25570 901324 90132 001330 
bssece Duisae GOISNG 001270 
025610 001272 
025612 000001 
025614 007 000 
025616 00000! 
02562 006 000 
Q2s622 O00001 
25624 006 «=O 
025626 000001 
025630 007 o00 
5632 000001 
025634 O01 O00 
636: 000003 
o2s640 007 S000 
S642 024300 
gese44 007 =a 
De564 024365 
O25650 007 S140 
O2565e 000001 
O25654 005 += 034 
025656 o00004 
025660 005 034 
O2S662 024557 
Oes664 010 000 
O2S666 O24E54 
025670 010 000 
025672 O2475e 
56 004 =o 
02567 O00001 
025700 005 000 
O2S702 00004 
025704 007 O34 
5708 24867 
71 10 = 000 
325712 24654. 
Si oat = 
025720 «OOS Ss 
025722 op0000 ooo000 
026730 900000 
025732 
g28732 oosois 
C2745 ONELIE O41505 


ERROR MESSAGES 


o0coC9 


. 


046412 O44501 


O30455 


MACY11 27(732) 


DF 1: 
DFe: 
DF3: 
DFY! 
DF6: 
DF 10: 


DF 17: 
DF20: 


DF23: 
DFe4: 


* 


f 
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RM. REG+30,RM.REG+32,0S.CYL,0S. TRK 


Ore aye 


— 


@oui 

* xe 
mw 
or 
Pp 


oOo 
Ps 
fu. 
oo 
wo 


5p RRRRR ERE R REE RRA REALL ALAA LE RAAA ALARA LRAAALARARALA RA LALA LAAT AALALE 


;BUFFER STARTS HERE 
5 RARER RRA EERE ARAAR EAR ALLER ALLA ARAL AR ARE RERELER ELLE PR ALERRE SEE 


RBUF : 


BUFP: 


TITLE: 


- WORD 


-ASCIT 


0,0,0,0 ;BUFFER FOR HEADER CHECK 


;FORMAT AND CHECK BUFFER STARTS HERE 
AND WILL OVERLAY ALL REMAINING CODE IN PROGRAM 


(CR? (LF ><LF> “MAINDEC-11-TEMP/<CR><LF> 


re Rh RMO1 FORMATTTER PROGRAM 
R.Pll ERROR MESSAGES 


4ae5 
4926 


025746 


026224 


O262e6 
32 


cbcb4 


026461 


000012 


004537 


042524 
030460 


046501 
047524 


032040 
p 0104 


C40S2e 


001302 


001302 
001172 
026426 


021337 


026450 


OS01iS 
043040 


005015 
pesine 


026060 
042522 


006515 


MACY11 27(732) 


-ASCIZ 


LOADRY: .ASCII 


-ASCII 


-ASCIZ 


30-SEP-76 13:58 PAGE 91 SEG 0091 


JRMOL FORMATTER PROGRAMA<CR> <LF><LF> 


<CR><LF>/TO ‘FORMAT’ OR *CHECK’ DRIVE 0, REPLACE THE *XXDP*/<CR><LF> 


/PACK ON DRIVE O WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, 7<CR><LF> 


“AND RESTART THE PROGRAM/<CR><LF> 


.SBTTL_ BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
D S BUS ADDRESS 


HE RH11 ETU OP DRESS. 
HIT WILL AL so READ THE ADDRESS FROM THE TTY IF 


JSR 
; RETURN 
BUSADR: TST 


1$: MOV 


QUI 
:NOTE® THIS ROUTINE DESTROYS RO-R4 


PC, BUSADR 
CHGADR Ade brane TTY REQUESTED? 
CHGADR YES--CLEAR THE REQUEST FLAG 
#SRMADR, RO FIRST ADDRESS ; 
MRMCS1 :"RMCS1=" , 
(RO)+,-(SP) eer, RMCS1 ADDRESS 

, LINSP ia” SPACES 

:GET THE 
(SPs, Rl ;AODR ESS oF TAScrI TEXT 
, CK: NUM !CHECK THE NUMBER 


4 


aS a RMO1 FORMATTTER PROGRAM 
BUSADR - GET 8US ADDRESS AND VECTOR ADDRESS FOR RH11 


RMFOR.P 


4981 
4982 


026270 


026444 


026450 
O264S2 


026310 


000705 


O4ES22 
020075 


lee 
036440 


O1O44E 
C1034E 


177776 


026437 ° 


021337 


026450 


177776 
4 


0 
012714 


000004 


051503 
8) 


053110 
000040 


o00co4 


020061 
041505 


~, 
COs 
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33 ;CARRIAGE RETURN ONLY ENTERED 
75 ‘PERIOD ONLY EN NTERED 
1$ ‘ILLEGAL INPUT 
2g : TERMINATED MITH ; CARRIAGE RETURN 
1$ TERMINATED WITH 
4g TERMINATED WITH A ore 

2$: MOV R2, -2( RO) ; SAVE NEW RMCS1 

38: TYPE MRHVEC : "RHVEC= 
MOV tROD+, -(SP) “PRESENT RH11 VECTOR ADDRESS ON THE STACK 
TYPOC TYPE IT 
TYPE =, LINSP 2 SPACES 
RDLIN !READ THE ENTRY 
MOY (SP)+,R1 ASCII TEXT ADDRESS 
JSR RS, CK: NUM CHECK THE NUMBER 
7§ CARRIAGE RETURN ONLY ENTERED 
73 :PERIOD ONLY ENTERED 
33 : ILLEGAL INPUT 
4 ; TERMINATED WITH A CARRIAGE RETURN 
33 : TERMINATED WITH A” 
4g ; TERMINATED WITH A.” 

4g: MOV R2,-2(RO) AVE INPUT 

3: MOV ERAVEC, RI ; SAVE THe ERROR VECTOR 
MOV #83, ERRVEC :SETUP FOR TRAP 
TST aSRMADR : CHE l 
MOV R1, ERRVEC “RESTORE ERROR VECTOR 
MOV #SRMADR, RO “FIRST ADDRESS OF NEW PARAMETERS 
MOV #RMADR, R1 FIRST ADDRESS OF WHERE TO PUT THEM 
MOV (RO)+, (R1)+ :BUS ADDRESS 
MOV (RO)+; (R1)+ ;VECTOR SDGRESS 
RTS PC TURN 

Q$: MOV R1, ERRVEC ‘RESTORE ERROR VECTOR 
CMP (SP)+, (SP)+ ;CLEAN OFF THE STACK 
ERROR ‘REPORT THE ERROR 
BR Rs ASK FOR BUS ADDRESS 


MRMCS1: .ASCIZ @RMCS1 
MRHVEC: .ASCIZ @RHVEC = a 


.SBTTL_CK.NUM - CHECK NUMBER (OCTA 
; THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
: AND FORMS AN OCTAL NUMBER IN Re 


; CALL: 
; MOV #ADR, RI ; ADORESS OF aScIZ STRING 
: MOV #NUM’ R2 !MAX SIZE OF INPUT NUMBER 
: JSR RS, CK. NUM 80 FORM THE NUMBER 
. RETURN ADR :"CR" ONLY ENTERED =~ R2 = 
} RETURN ADR2 :"PERIOD” ONLY ENTERED -- Re = 0 
} RETURN ADRS ILLEGAL CHARACTER IN THE INPUT STRING 
: RETURN ADRY " ENTERED -- R2 = NUMBER 
RETURN ADRS COMM MMA” -- R2 = NUMBER 
: RETURN ADR "PERIOD" -- R2 = NUMBER 
CK.NUM: MOV R4Y,-(SP) ;SAVE RY 
MOV R3;-(5P) :SAVE 3 


SEG 0092 
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RMFOR. CK.NUM - CHECK NUMBER (OCTAL) 
4983 026454 010246 MOV Re, -(SP) ; SAVE 
4984 Ue6456 005004 CLR R4 ;RETURN POINTER 
4985 026460 005003 CLR R3 ; START NUMBER AT ZERO 
4986 Oeb46e 005002 CLR Re ;STORE RESULT 
4987 026464 004537 007074 JSR RS,CK.CHR CHECK ONE CHARACTER 
4988 026470 026566 6$ ILLEGAL CHARACTER 
4989 026472 026572 8$ ; CARRIAGE RETURN 
4990 026474 026566 6$ i? 
4991 026476 026570 7$ . 
4992 026500 026504 1$ DIGIT 0-7 
4993 026502 O?6566 $$ ;DIGIT 8-9 Bae 
4994 Oe6S504 062705 000004 1$: ADD #4,R5 ; INCREMENT RETURN PAST "CR" AND “PERICO” ONLY RETURNS 
4995 026510 006303 es: ASL R3 ;FOR i OCTAL NUMBER _IN R3 
4996 O26Sle 103425 BCS 6$ :DON’T LET IT GET TO BIG 
4997 026514 006303 ASL R3 
4998 026516 103423 BCS 6$ 
4999 026520 006303 ASL R3 
S000 O26See 103421 BCS $ 
S001 026524 060203 ADD R2,R3 
S002 O26Se6 004537 007074 JSR RS,CK.CHR ;CHECK ONE CHARACTER 
5003 O2653e 026572 8$ ILLEGAL CHARACTER 
5004 026534 026556 S$ ; CARRIAGE RETURN 
5005 026536 026554 4$ Fa! 
S006 O26S40 Oe6S46 3$ ae 
5097 Oe6S4e 026510 es :DIGIT 0-7 
$008 026544 026572 8$ :DIGIT 8-9 
5009 Oe6S46 105711 3S: TSTB (R1) ;DOES A "CR" FOLLOW THE “PERIOD” 
S010 Oe265S0 001010 BNE 8$ NOT 
S011 O265Se 005724 TST (R4)+ IN CREMENT THE RETURN 
SOi2 026554 905724 4$: TST (R4)+ ; INCREMENT THE RETURN INDEX 
S013 026556 005724 SS: TST (R4)+ j INCREMENT i ee INDEX 
5014 O26560 020316 CMP R3, (SP) : INPUT yo UE TOO LARGE ” 
5015 OebS6e 101003 BHI 8$ :BR IF IT IS 
5016 026564 g00401 BR 7$ ;BR IF NOT ae 
5017 026566 005725 6$: TST (RS)+ INCREMENT THE RETURN ADDRESS 
5018 026570 005725 7$: TST (RS)+ ; INCREMENT THE RETURN ADDRESS 
5019 026572 060405 8$: ACD R4Y,RS ;SETUP FOR PROPER RETURN 
5020 026574 9010302 MOV R3,Re 3 ORR ENTE VALUE 
S021 02 005725 TST + ;CLEAN OFF THE STACK 
S0e2 Ocb600 012602 MOV (SPj+,R2 ; 
5023 26602 012604 MOV (SP)+,R4 RESTORE RY 
50e4 O26604 011505 MOV (RS) ,RS GET RETURN ADDRESS 
S0eS O0e6606 00205 RTS RS : RETURN 
5026 
$027 
5028 


£029 900051 END 
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ack 001 ‘ 

Bet ey Bees 5ee 393% 3289 370Re «A717e | 2OHE 

SCTSTR O1D633 3076s | 394s" «256 ae 

ACORIS 22560 1991 4S244 

ADRTBL  OD1S00 go3e 1644 

ASE = 001000 7318 

aTA = 10000 7188 : : 

ATABIT O12702 31438 3305 3430 2466 3509 3871 3990 3898 493899 «2916 S(O 

ATTN  O01276 S255 igde «474 

ATO = OOO00! 7518 

Atl = 000002 roy 

AT? = OO0004 et" 

ats = 000010 at 

ary = 900020 at" 

"S = 000040 7eRR 

ATS = 000100 ea" 

aT? = 000200 ray 

fig = OOOO) 5eSe 

= 901000 ay" 
BAgeNT” 022064 2533, «44ES# 
= 000010 6734 ae : 

BEGCYL Boi ze4 Boe 974 «41385* + 1y4le 1449 1500 1509 1513 1540 1695 1889 1726 1729% 
1732 1835 i858 i@s0x less ase 

BEGIN 02140 535, [Buy 

BEGIN 02150 B59 «babe (1261 

BEGIN2 O02154 1225 s«[Be7a hb wont 

BEGTRK 001230 Soe #975 4«13e4* i440e 1453 1503 1516 1727 172@* 1731s 1895 1929 1959 
1861 1866% 1889 

BITO = 000001 5238 

BITO0 = O0O001 e198 «=«&E9—t«‘iBRBe:s«aM?—Cs«‘CSHD.Ss«CLLY 

3ITO1 = 00002 bilge «= 6e8Ss«d'2HS*<«‘sdz~«CB2LS38LSCG DO 

BITO2 = OOO004 l78 be? 

BIT03 = OOOOI0 clos = b2eSsCi3830) LY 

BITO4 = OO0020 Biss 625 jsde 3865 

BITOS = O00040 elds = betSs«3232Ss ESD) 3BHS~=3996 

BITOB = 000100 b138 = b23ti3314Ss372SH?Ss3743.—Ss«YROS as 

BITO? = Q00200 Bids be>s3314s 68D «3729Ss383Ds—s3NSS6S 3894477 

BITOs = OOD400 plies 621 1799 3319 4009 

BITO9 = OO1000 elon 620 1799 2216 3994 

ie 6 Ge as 

BITiT = pOdbOo pean «toe | 4854 5699 SBFF aqi7 , 

BIT12 = 010000 pore 1783 sel 374 Se 331H 3383 BOY NIG 89732628 

S1T12 = o20000 i GS ee 

BITIG = O40000 Bose 1790 1821 3378 3413 3790 3933 4949 4094 4992 «©4209 

BITIS = 100000 Cote «3366 «S378 = ss3381S 383i s(iMSSOCHOLSB3G:siCe2DSsi2PU~Ss2g30 US 
3855, eee 3822389408 «S048 

e1T2 = o9o004 E278 «1780 4S 

BITS = 000010 eta 

EITy = 900020 easy 

CBE ow 

Bit? = po0200 aa 

BITe = 000400 at" 

its = O01000 e508 
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BPTVEC= 000014 6368 
BUFP 


025732 993 934 395 996 997 998 999 1000 1001 1002 1003 1904 160s 
1006 1007 1008 1099 1010 1011 1012 1013 1014 1015 1015 1917 1318 
1019 1020 1021 1022 1023 1024 1537 1S72 17le 1833 1887 1905 1332 
4806 48668 
BUSADR 026226 1281 49168 
. 021327 1992 44008 
CHGADR EOE st Acede l226* 4916 4918% 
y ¢ 
es BLMSSE 343g SMR 
cI4 14434 3426 35108 
7 ne ee 
«18 Biened 3368 44E i338 3ug9 a086 3494 3503 3597 3518 3$25 3531 335 3548 
3555 3559 3569 3580 3595 35978 3703 3733 3882 4199 
CI78 G1S076 3600 36038 3884 
cig 0:15:50 3598 3606 36158 3756 4041 
CKADRS 003652 15008 
CKSWR = 104407 1 29588 
CKTRK COY4OE 1574 16028 i 
CK.CHR 007074 1400 1465 20938 2130 2144 4987 S002 
CK.DEC QOO07046 20718 2099 
CK-DIG 007146 2024 = 21248 
26450 4926 494 49818 
CK.OCT Q07020 20538 2101 
CLOCK O06514 1946 1956 19678 
LR = QOO0040 6758 
CLRQUE 920705 3214 3649 4019 42738 
CNTLO §=©001300 Se4# 3 =«lebl® 1394* 1990% 2553 2636 an eS 
= 000015 su4e = 865e «2354 = 2364 4394 = 4397) HHS HOD HIGH HY 425 
wu42 4448s ugg 7G (DSS SSG? SIZ HSE 
W741 «4753S «69Ssi‘7.séNG7BO «S87? «4898 
CRLF = o00200 Suse 2325 49-2364 
CYLCK 001246 $07" 1685" 1716 1719 1720 17228 
CK = 100000 7378 = 1626 
DOISP = 177576 SSls 870 1247 « 
DORIVE 001274 Sele 2188% 4777 4779 4781 
DF 1 CeS61e 1083 48208 os a 
DF10 025636 1132 1139 1146 11S3 1160 1167 1174 1195 1202 48308 
DF 17 025652 1181 48368 
DFe OeS616 1090 48228 
DFed O2eSESE 1188 48388 
OFe3 025676 1209 4B4E 8 
DF24 025702 1216 48488 
DF3 0256, 1097 484s 
OFY 025625 1104 4B26% 
Pats ea7a 10g] eae 
is) 
DH1O C24213 1130 1137 1144 1151 1158 1165 1172 1193 120C 45748 
DHICA 924300 46838 4832 
CH1OB Oe43é5 46928 4834 
DHI7 024441 1179 47008 
He 023772 1088 46498 
CHe9 024510 1186 47078 
CH2eORk 8 Oe4s57 47148 4840 4850 


CHe0B Oe46S4 47258 8 4842 485¢ 


o~ 
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DH2OC «= De47s2 47368 48444854 
DHe3 = 25005 1207 WML 
BHe4 = 025103 1514 ugS38 
DHS = e444 1995 46568 
OH4 = «O45 1102 46638 
DHE = 24200 1116-46728 
DISPLA 051142 S708 i247* 125S* 2199% 
DISPRE 000174 Sige 1255 
DLT = 100000 6854 
ONO. = 000001 7418 
DONE —-OS44e 1772 «17738 
DPINT 012606 30308 «3243 3246 «Ss 3322e «3348 «= 3774 «0s «3799Sss3923)«aaete «3986 0eY HOS Hae 
DPR = OOO400 7118 
PROS Olek 16 30438 3354 «= 3441 «3777, «3937* «63989 «= 4026 «S037 = (HOS 2 7 
DRIVE _~O01214 gis Nee 143314351481 182047854784 H78E 48054808 
DRVACT 012556 29898 3362 3543# 3590* 3609 3620 3635* 3722« 3795 3825 39de atte 3979 
Sagge 3997* 4002 400% 
DRVCLR= 000111 8244 
DRVINT 013144 3234 32688 3350 3408 2907 3926 400! 
BRVSTA 12566 T30g lage Bee4K  3225%  32DEe gge7* © geG7* 30bse 3e7ge «lls alee | 334 
STA Ole 2 2 2 ? ils 3Zibe 334 
: a8 435 IDI 3S0de «Seas «3980 38a HEEL «Besa «© 3ecds3E7E He 
* 
ORVTYP 1257 1309 1323. «132@6)=Ss1H27)— «1437 3017® «270% «= 32BS*# «290k «37S 
ORY = 000200 710% 
OSwR = 177570 coos 869 Ss 12M 
cs.cyL 001270 3198 2190s 4791 4794 4796 4e04 Yeog 4817 
OS: TRK 001272 ge0e 21Sle 4791 4794 «94796 «4804 «= uae «4817 
OTE = 019000 7348 © 16z6 
Drsy = 900200 7474 : al : 
Oru = ole700Stti 21368 3220 3429 «93487* «93610 0 b12* «3629 63E EGR EHT# «S711 7BRe 292: 
4008 ««40l7* 4028 = 4092 
DTcO = 000001 7554 
701 = 00002 | 765% 
Bro = 900004 757% 
703 = 000010 7684 
O74 = 000020 769% 
Dros = Oo0040 7708 
706 = 000100 7718 
O70? = o00200 7728 
roe = O00400 7738 
Tl © 025256 1082 «47748 A | ae 
OT10 025344 113} 1138 1145 11S2 1159 1166 1173 1134 3203 47958 
Ti? esas 1180 © 4754s 
CT2 = 025274 1089 «47778 
Creo © Ges4a0 1187 47968 
tes  dectie 1208 4806s 
cre4 = 025504 1215 4808s 
oT 025310 1096 «4779s 
rs = 025334 1103 «47818 
ove = e342 1117-47848 
vA = DO4005 705s 
EtH = 000100 728% 
ECI_ = Oo4000 756% 
EMPrys C2074 207 «6520744 2b?) 3805) HOE? = EGS 
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EMTVEC= 900030 6398 1296# 1237% 12608 
EMI 522605 1080 «45358 
EMIO 023075 1129 45a78 
EM]  Q23113 i136 © 45708 
EMis Qe 3151 1143-48768 
EMI3 Op 3214 1150 45828 
EM14¥ = Q2 3235 115? 45858 
ENS — Oe3260 igh 45898 
us | BSas6¢ tise dea 
EMS De2b46 1087 = 45418 
EM20 «= Qa 3454 1185 4108 
EMD]  Qeasle 1192 46158 
EMBs sa 1199 4e2>8 
EMSs Oe 3632 1208 46298 
EMD4 3702 1213-46368 
EM3 022704 1094 «45468 
EMy 022742 1:01 46518 
EMS 02277 45568 
EME 023033 1115-45618 = 
ENDCYL 001222 8979 976 143% 1439% 1449 1800 1510 1812 1716 
ENDTRK 001226 8493 97> 387% 1453 i502 1817 
ENTADR 2! 1446-44058 
ERINDX O55472 1585 1617 1700 17878 
R = O40000 7178 ©1636 x 
ERRVEC= OO0004 6328 1244 1245s 1256e 1942e 1949% 1953e 1962 4948 4949 4951# 4957% 
Es say O21144 3759 «3810 «3814 «= 4080 s—s«siso 43678 
= 900020 7368 = 1626 , a < é 
FMTDPE 001356 9558 1389* 1433 1435* 558% 1561* 1562% 1564 1566 15704 IS71* 1572" 15750 
1873 156i Lede 106 1608 1g4es iba 1650s 1gs9 lege ies igege e850 
+ 4 r ; 2 % } “s 73 Ci 
{3 1e3t, +836, 1298, tesa tesis feses toa igh, «foes. «1628, «face. «HERE 
1863% 864% i865* 1976s 1977" 1878 1992 1999 2190 219; 
FMT16 = 010090 797% 
Fi = 000002 7008 
F2 = OOOOOY 7018 
F3 = 000010 705% 
FS = Oo0deO 7038 
FS ss = QOOOHO 7048 
GETREG= 060141 8318 — oe 
GETREQ O21060 3401 3625 «3784 «= «382003881 40s 3932) 3953008 
GNS = eeReeE U Sid 95D Ss«iQS] «SiS «SiS sGBS SC ssGSERCC‘éikkSSOCiéDOS«SsC2GHDi(i‘iazDELSCi«éC2MED 
60. = 90009) £998 hy 
GTSWR = 1O4406 1275 29568 
HCE = 000200 7298 1708 
HEI = O02000 795% 
HeRC = COO4DO 7308 1626 
HDREAD O0S5020 1675 «16828 
HEDERR OD1262 9138 1682« 
HT = OO001! S428 23230 2364 
lee = 902000 732% 
Te = 000190 at 
iLF = 09000] 7228 
TR = none 7238 
ToTvec= O000e 6378 
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RMFOR. PLL CROSS REFERENCE TABLE -- USER SYMBOLS 
isk (915560 3229-37088 
LA 015404 3434-36698 
LpCNT _ pieead 39358 Jb/7s 3678-3699 . ; <s 
+ aS 438 88H 2358 36443944397 HOS HOS HSE EDDY 
wave HH Hab? SEG? HBO HBB HSE SCE HEC? E12 
u74r 4753, 48B9s4B 48 yee, =: 4895 fi 
LINSP_ 921337 1321 «1998 = 2269) 2278 = 2289 HOH 4922-4997 
LINYSP 021335 1305 9 44038 
LOADRY 026019 1267 948788 . 
LOP.CK 005572 1592 1664) Ss «I71L—sA7IS 18168 
LST = 002000 7138 
MADRER 022104 1455 | 44688 | 
MAXSEC 091266 gi7# 1377% 1383* 1613 1659 1986 1904 1931 
MCCMPT O22504 1750 «4S 168 
MCLK = 000002 7428 
MCPE = 020000 58a 
MCPEMX 012712 31548 4072 09-4120 
(ORNP = 021414 1429-44128 
MORVD 021332 1408 4402s 
MERI1_ 021441 1431 = 44168 
MPT Oee4S7 1748 4S 128 
MFORMT Q21601 135544348 
MHECK 021622 1353-44378 
= 990004 ~ 2 
B 
a bite Aiba 38? 
MNRMO1 Oe 44208 
MODE 001220 8968 1341e 1358* 1485 1573 1629 1648 1746 
MOFFLN 021372 44098 
MOH = 020000 7758 
Reet EE ay 
55e8e8 1472 45908 
= 000400 &7S8 
MRD = 000020 7458 
MRHVEC 026437 4934-49648 
MRMCS1 026426 4920 «49628 
MSCHK (022423 1489 45078 
EC20 22005 137944578 
MSECee Oe1726 1373, 4449 
ELD «921535 44278 
SELP e206 1462-44808 
MSFOU O223t6 1487 = 4502 
512 1655 1362-44428 
MSTCK = 000019 7448 
MUNIT 92131 1397-43978 
ML e131 1425-44248 
001 9i28 1375# 138i 1571 1645 1832 
" = 00004 746% 
MXOLTA 912724 31E78 ©3695 
MxF = OO1000 6798 
MXLACT 012722 31648 3678 
MXWNOW 018730 e238 3496 
" p03; 74 13990 13948 «14121426 1H30,s1H32«1778 
mi Oca? ie ig4ie 1362 


noo Oe RMOQ1 FORMATTTER PROGRAM 
CROSS REFERENCE TABLE -- USER SYMBOLS 


003134 


D20E4E 
Ce0bes 


13848 


SHES 


MACY11 27(732) 
1977 

14468 1456 
1458 14628 
2003 

1990 

3739 3900 
1530 1S34% 
1S31# 1535s 
1479 1528 
3581 33893 
1260 

1958 

1295* l421# 
1989 

4e98% 4313 
446 42588 
4247 42598 
4e4g 42608 
Hea 42618 
425 4ebeos 
425) 42638 
4252 4ob4s 
4253 42658 
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1478 


3938 


1538 1S42% 
1539 1S43* 
1$32 


43498 
3212 3213% 
43iS* 4335 


3337% 


3390* 


3400 


3450s 
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RMFOR.P11 
QINPT. O204e4 
QOUTPT O444 


RD.ADR 017676 
RD.RM 017652 


RD.RM1 017674 
RD.RM2 O20020 
Re - -RM3 020024 


RETRY 001250 
RMADR 012714 
RPMAS = OOOO1E 
RMBA = OOOO04 
RMCSi = 000000 
RMCS2 = 000010 
RMDA = OOO00DE 
RMDB = 000022 
RMDC = 000034 
RMOS = 000012 
RMDT = 000026 
RMEC1 = OOO044 
ae = 0000 
RMERI = OO0015 
RMER2 = eee 
= 

RMINIT ee 

A =00 

£ = 000024 


eM C e608 
RM, REG 001306 


WreW an whet ee tat tt ee eee 


= TU Nie TU 


4317% 
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mT 


3553 
4141 


3384 
1598 
3469 
4200 
3898 
34 
a 
274 
902% 
3517 


3406 


3633 


3554 


3337 


1625 
4804 


? 
¢ 


4321% 
4353 


29608 


3567 
4147 


495 
3916% 


a138 


3a78% * 


3672 


sa 


3558 


1636 
4808 


4355% 


4924 


3671 
4181 


3451 


1667% 
3510 


4021 
379 


470% 
980% 


3823 


3904% 
414 


Lat) 


1823 
48i1 
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4938 


3685 


3656 


1670% 
3669 


3548 


3490% 
3996% 


3848 


3905% 


2132 
4814 


3731 


3754 


3962 


3979 


3579 


3597 
4138 


3982 


4777 


4774 


3822 


4190 


4074 


3594 


3516 
4I7lt 


4289 


4080 


3605 


3629 
4177 


SEG 9100 


3847 


4084 


3732 


364! 


4201# 


TE le RMO1 FORMATTTER PROGRAM 


RMF OR. 
RMO1 
RMO1A 


w 
oO 
nnwe 


oO 
tJ 
Oo 
" 


Pll 


013436 


017634 


1578 
43938 
43918 


40578 


1605 
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1693 


3583 
3211 
1614% 
3748 


40218 
4O41 8 


33368 


3736 
3339 
1615# 
37528 


3878 


3877 
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615 3709 3949 4167 
642 4794 4796 4808 


3885 3901 3939 


38798 3911 


41998 


1657 662%  1879% 
1973 


4273 
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RMFOR. PLL 
S109 17644 
ST.CLK 006352 
SvRH70 20224 
SWR = «O01140 
SWREG 000176 
SWO = OOO001 
Sw0O = 00000! 
SWO1 = 000002 
SwO2 = OOO004 
SwO3 = OOOO10 
SwO4 = 000020 
SWOS = OOOO4O 
WO = 000100 
SwO? = 000200 
SwO8 = 000400 
SwO9 = 001000 
Swi = 000002 
SWiO = 002000 
SWi1 = 004000 
Swi2 = 010000 
SWi3 = O20000 
Swi4 = 040000 
SwiS = 100000 
Swe = OOOO04 
SW3 = OOODIO 
Sw4 = 000020 
SWS = OOOO4D 
SW == 009100 
Sw? = 000200 
Swe = COO4O0 
Sw9_ = OO1000 
SyStAT Oele7e 

21331 
Teele 01376 
TAP__= O4OQ00 
TBITVE= 000014 
TD 015624 
TIMER 012660 
TITLE 025732 


001232 
TTRKSC 01234 


4040 
1 y 


373 e 


1293 


1916 


2038 


S444 
4051# 


* .- 2003 
- 123% 
; &. 1847 


34E7* 


15034 
1845* 
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4042 


3589% 


2533* 
1259% 
1849% 


3612* 
1504# 


4048 
3745 


1254% 


es95 


3634% 


2S34* 


1853* 


3622 
1515* 


4055 


3785 
1273 


2618 


372S* 


3639% 
1516# 


40594 


3836 
1293 


3818% 


3b48% 
1517% 
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3854 
1671 


3862% 


3727 
1518% 


3897 
1773 


3913% 


3729 
15214 


3934 3995 
1816 2200 
3920% 2952 
3990 400s 
1939 


SEQ 0102 
uose «= 41678 
2207 2212 
3954* 412% 
4019 


MO-11-DZRMA, RMO1 FORMATTTER PROGRAM 


RMFOR.P11 
TYPADR OO06604 


eee = 1Bdd83 


TYPERR 007512 
TYP ines 


—4 

-~< 

“U0 

Qo 

ao 
wun 


1 
ULDFLG 012634 


= 040000 





- 


1493 i 
3271% 
‘43798 
438148 
‘1869 
19318 


N 


1.374% 
1623 


18 
1386% 
1575 
1673 
16 
4133% 
32 
3578 
4 


2202 
23408 
2958 
lz293 


¢° 
2618 - 


29518 


29528 
3346 


1904% 


1380* 


1448 


1676 


qi 788 
341 
3593 


eee4 
e347 


1230 


MACY11 27(732) 
“CROSS REFERENCE TABLE -- USER SYMBOLS 


1536 


14S7% 


3S54S* 


1506 


3480 
3806 


41568 


4781 


2759 
23618 
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41 
29508 4920 


3608* -3640* 3782 


3484 3492 3501 
3838 3875 41208 


3868 


3505 


3870% 


3886 


3888% 


3533 


SEG 0102 


3998# 


3s47 


MO-11-DZRMA, RMOl FORMATTTER PROGRAM MACY11 27(732) 


RMFOR.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
SENTLC 012035 2550 2631 27598 
SCNTLG 012047 2616 27618 
SCNTLU OQ12042 2641 2734 27608 
SCRLF 001167 8828 1297 1331 1335 
2286 2329 2364 2652 
SOBLK 010624 2467 2501 25098 
$0B2D Ol2172 2804 28238 
S$DECVL 012352 2825 28718 
$DOAGN O0S44e 1759 1764 17708 
SOTBL 010614 2470 2S0S# 
SENDAD 005432 Se 17668 
SENDCT O0S416 17618 
005336 1718 174S# 1825 
SEOPCT 005410 17S8% 1762 
SERFLG 001103 8See 2197% 2224 
SERMAX 001115 8588 1l2e41% 
SERROR 007364 1236 21868 
SERRPC OO1116 859% 2204*% e205* 2206 
SERRTB 001700 10778 2238 
SERTTL OOllle 8568 1395% 1752 2203% 
SESCAP 001160 8798 1240% 1584*  1597% 
2224 3753 3810 38i4 
$FILLC OO01156 8778 2333 2364 
$FILLS 001155 876% 2364 
GD 001120 68608 
$GDDAT 001124 8628 e2196% 4808 
SGETY2 005422 17638 
$GTSWR 01123 26178 2956 
$HD = Q00000 493 
SICNT  OO01104 8538 
SINTAG 001135 8678 e2614* 2633 2653 
SITEMB 001114 8578 e2206% 2224 2233 
SLF 001170 8838 e224 2364 2749 
$LKCSB 001200 8908 1949# 
SLKCSR 001176 889% 1944 1950* 
SLKS 001206 8928 1954 1959% 
SLLVEC 001210 8938 1955 
SLPADR 001106 854s 
SLPERR 001110 85S" 1576% 1603* 1691% 
SLPVEC 001202 8918 1945 
SMAIL = £#¥ee% LU 1258 1273 2212 2317 
SMNEW 12065 2620 2764s 
SMSWR 012054 2617 27628 
NULL 001154 8758 2335 
SOCNT QO10404 2397% e42e6b% 24398 
SOMODE 010406 2392% e396* 2401 2404% 
$PassS 001100 BS08 175S* 1756% 1773 
S$QUES OO116E 8818 1351 1371 1410 
SROCHR 011502 26848 2959 
DEC= 4#424% 2361 
SROLIN 911572 27078 2960 
SROOCT= eeeeee U S38 
$ROSZ = 000007 7008 
SRESRE Ole4e4 e30be 862962 
SRMADR 001172 8878 lege 4784 4919 


SAMYEC 001174 888s 1283 
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1496 
2739 


2766 
2759 


1818 


2415% 
1477 


4950 


1754 2002 2210 2224 
2759 


4785 4794 4795 4806 


1633% 1635% 1669%  1699% 
4iS0 4359 4368 4369# 


2218 


24418 
e224 2364 2671 2742 


4952 


2241 


4808 


1709% 
4371# 


e759 


2246 


1819# 


2219 


2221 


MD-11-DZRMA, RMO1 FORMATTTER PROGRAM 
CROSS REFERENCE TABLE -- USER SYMBOLS 


RMFOR.P11 


S$RTNAD 
$ROA 
$SAVRE 
$SB20 
$ScTUP= 


w 
wu 


ERRORS DETECTED: 


0OS444 
000106 
177777 


123000 
001146 


000014 
012516 
Oe 


0 
DEFAULT GLOBALS GENERATED: 0 


RUN- TIME: 


#RMFOR. BIN eR. gFER Fo cOOC nt: :MC:MD: CND/LI:ME/CRF:SYM/NL: TOCSRMFOR.F11 


RUN-TIME RA 32847 125=26. 1 


? $3 


idvi 


MACY11 27(732) 


1238 


29538 


2740 


23518 


30-SEP-76 


1240 


29548 
2754 


e352 


“, 
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1242 


2585 
2698% 


2569 


. 


29ssa 
27588 


2657 


S2S8 
25198 
4ob4s 


1270 


2587% 


2575% 


2956 


528% 
e$19 
42658 


1755 


879 
2209 
2599 


2597 


29578 


2187 


880 
2207 
26c6 


2613% 


2958 


2215 e223 
1240 1742 
e2le 2216 
2623 2635# 


29598 29608 


1755 1765 
2224 


26sss 


ecg1e"* 29628 | 


MO-11-DZRMA, RMO1 FORMATTTER PROGRAM 


MACY11 27(732) 


1 
RMFOR.P1l CROSS REFERENCE TASLE -- USER SYMBOLS 


CORE USED: 37K ‘73 PAGES) 
DOCUMENT PAGES: 106 
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SES 9106 


